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This publication provides the information anabling the 
programmer to write programs in the IBM System/360 
Model 20 DP3/rP3 Assembler language and the macro 
language. 

The Model 20 Assembler language allows the use of 
mnemonic operation codes and symbolic representations 
of storage addresses and other values, A program is 
written in symbolic language. This program is pro- 
cessed by the DPS/PPS Assembler program, which reads 
the symbolic statements and produces a program in 
machine language. 

By means of the macro language, the programmer can 
reduce considerably the amount of repetitive coding 
required for routines used frequently within a given 
program or in many different programs. The programmer 
must code the routine only once and include it in the 
macro library. He writes a macro instruction at the 
point in the source program where the routine is 
required. During assembly, the Assembler reads the 
macro instruction, extracts the routine from the 
library, and inserts it in the object program. The 
programmer can cause the Assembler to tailor the rou- 
tine to fit the particular problem program by specify- 
ing the appropriate symbolic operands in the macro 
instruction. 

The reader of this publication should be familiar 
with basic programming concepts and with the operating 
principles of his system as described in the appropri- 
ate SRL publicatiDns. For a list of pertinent publica- 
tions see IBM_Si];stem/360 Model_204__Bibliogra2hy» Form 
GA26-3565. 
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Assembler Language Introduction 



Computer programs may be expressed either 
in machine language, i.e., language direct- 
ly interpreted by the computer, or in a 
symbolic language which is more meaaingful 
to you, the programmer. The symbolic lan- 
guage, however,, must be translated into 
machine language before the computer can 
execute the program. Phis is the function 
of translator progranns such as the 
Assembler. 

Of the various symbolic programming lan- 
guages,. Assembler languages are closest to 
machine language in form and content. 

The Assembler language discussed in this 
manual is a symbolic programming language 
for the IBM System/360 ildodel 20. It 
enables you to use all IBM System/360 Model 
20 machine functions as if you were coding 
in System/360 Model 20 machine language. 

The Assembler program translates or pro- 
cesses (assembles) Assembler-language pro- 
grams into machine language for execution 
by the computer. A program written in the 
Assembler language and used as input to the 
Assembler program is called the source__gro- 
jram^ the machine- language program produced 
as output from the Assembler program is 
called the object program. The translation 
or processing procedure performed by the 
Assembler program to produce the object 
program is called assembling or assemb ly . 

The entire process is illustrated in 
Figure 1.. The Assembler program is supp- 
lied by IBM. 



There are two outputs from the assembler 
run. The first is an object program con- 
sisting of actual machine instructioas 
corresponding to the source program state- 
ments written by you. The object program 
is punched either into cards or it is writ- 
ten on magnetic tape or on disk. 



The second output is a program listing 
or assembly listing. Ihis docament shows 
the original source program statements side 
by side with the object program instruc- 
tions created from them. Many programmers 
work from the assembly program listing as 
soon as it is available, hardly ever refer- 
ring to their coding sheets again. An 
example is shown in Figure 2. This figure 
is explained below. 

(Proceeding from right to left) : 

a. The items listed under A stiould be 
exactly the same as the handwritten 
entries on the coding sheet. This pro- 
vides a good check on the accuracy of 
the keypunching. 

b. The items under B are a representation, 
in hexadecimal notation, of the corres- 
ponding instructions and constants. 

c. C shows the addresses (in hexadecimal 
notation) of the instructions, con- 
stants, and areas of storage specified 
by you. For more details see Appendix 
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TYPES OF ASSEMBLER- LANGQASE STAFEMEl^TS 

An assembler-language program nay consist 
of up to four types of statements: 

• machine instruction statements (hereaft- 
er called machine instructions) 

• Assembler-instruction statements 
(hereafter called Assembler 
instructions) 



macro-instruction statements (hereafter 
called macro instructions) 



Figure 1. Schematic Representation of the 
Assembly Process 



comments statements (hereafter called 
comments) . 
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LOCATN OBJECT CODE 
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_^ 


' ^ ' 


■\ 


0100 




0100 ODBO 




0102 




0102 4880 


BOIE 


0106 4A80 


B022 



ADDl RDD2 STMT 



SOURCE STATEMENT 



010?^ 1A88 
OlOC 4B80 B020 



r\ar\ td /-lOii 



0114 4890 B026 
0118 4A90 B028 



one 47F0 00C2 

0120 0019 
0122 OOOF 
0124 000?^ 
0126 

0128 OOOC 
012A 004E 
0100 



0120 
0124 



0122 

0128 
012A 



00C2 



0002 BE3IN Bft.SR 11,0 

0003 USING *,11 
LH 8, DATA LOAD RESISTER 8 
AH 8, TEN ADD 10 

THE FOLLOWING OPERATION ^ILL yiULTIPLY BY 2. 
AR 8,8 
SH 8,DArA+2 NOTE RELATIVE ADDRESSING 



0004 
0005 
0006 * 
0007 
0008 

0010 
0011 

0012 * 

0013 * 
0014 

0015 + 

0016 ♦ 

0017 DATA 
0018 

0019 TEN 

0020 RESULT 

0021 BINl 

0022 BIN2 
0023 



OTiu O DOor-rT-n 

ox LJ. U / LXLJkJLJXJX 

LH 9, BINl 
AH 9,BIN2 
THE NEXT MACRO INSTRUCTION 
/JILL CALL THE END OF JOB MACRO. 
EOJ 

15,194(0,0) 



BC 
DC 

Dr 

DC 
DS 
DC 
DC 

END 



H' 25' 

H' 15' 

H'lO* 

H 

H'12* 

H'78' 

BEGIN 



Figure 2. Assembly Listing Produced by the Assembly of the Program 



Predefined mnemonic codes are provided 
in the Assembler language for all machine 
instructions. Assembler instructions, and 
IBM-supplied macro instructions. Addition- 
al extended mnemonics are provided for the 
various forms of the Branch-on-Condition 
machine instruction. 

The Assembler language provides for the 
symbolic representation of any addresses, 
machine components (such as registers), and 
actual values needed in source statements. 
Also provided is a variety of forms of data 
representations: decimal, binary, hexade- 
cimal, or character representation. You 
can select the representation best suited 
to express a given data item. 



Machine_inst ructions: Machine instructions 
are one-to-one representations of System/ 
360 Model 20 machine instructions. The 
Assembler produces an equivalent machine 
instruction in the object program for each 
machine instruction in the source program. 



Assembler instructions; Assembler instruc- 
tions specify auxiliary functions to be 
performed by the Assembler program in addi- 
tion to its function of translating. These 
auxiliary functions assist you in 

• checking and documenting programs. 



• program sectioning and linking, 

• data storage field definition, and 

• controlling the Assembler prograi^ 
itself. 

With a fe* exceptioris, Asseribler 
instructions do not result in the genera- 
tion of any machine-language code by the 
Assembler program. 

^§S£2™iQSfe£35.!ti9Q§* Macro instructions 
cause the Assembler to retrieve a coded 
symbolic routine, called macro definition, 
from the macro library, modify the routine 
according to the information in the macro 
instruction, and insert the modified rou- 
tine into the source program for trans- 
lation into machine language. IBM supplies 
macro definitions (mainly for input/output 
operations) as part of the macrD library. 

You may also define your own macro 
definitions and refer to them through macro 
instructions which you define yourself. 
These definitions and statements are 
defined according to the nacro language and 
are processed by the Asseiibler in the same 
manner as the IBM supplied macro defini- 
tions. The macro language is described 
also in this publication. 

Comments: Comments allow you to state, for 
your own reference or for any other reader 

;jhp+- \7.on T n+- on "^ O'^ \- r\ Kq 



done in ttie particular instruction. Your 
comments should be as precise as possible. 



CHARACTER SET 

Assembler-language statements may be writ- 
ten using the following alphabetic, numer- 
ic, and special characters: 

^lEhabetic_characters: 29 characters are 
classified as alphabetic characters. These 
include the characters a, ft, and $ as well 
as the characters A through Z. The three 
additional characters are included so that 
the category can accommodate certain non- 
English languages. (The printer graphic 
may vary according to the national charact- 
er set.) 

Numeric cha.racters; digits through 9 

S2ecial_characters: + - , = . * ( ) '/ g 
blank 



5§i223:t §:^iiitZ = ^^^ object programs pro- 
duced by the Assembler may be in a format 
enabling relocation from the originally 
assigned storage area to any other suitable 
area through the Linkage Editor Program. 

^§2ti2IliG2_5.G^_liiQ!si02* ^^^ Assembler lan- 
guage and program provide facilities for 
partitioning an Assembler-language program 
into one or more parts called control sec- 
tions. Because control sections do not 
have to be loaded contiguously in main 
storage,, a sectioned program may be loaded 
and executed even though a continuous block 
of storage large enough to accommodate the 
entire program is not available. 

The linking facilities of the Assembler 
language and program allow symbols to be 
defined in one assembly and referred to in 
another, thus effecting a link between 
separately assembled programs. This per- 
mits you to reference data and/or transfer 
control between programs. 



These letters,, digits, and special 
characters are only 51 of the 256 EBCDIC 
(Extended Binary-Coded Decimal Interchange 
Code) characters. Each of the 256 charac- 
ters (including the 51 characters above) 
has a unigue card punch code. 

i4ost of the terms used in Assembler- 
language statements are expressed by the 
letters,, digits, and special characters 
shown above. However, such Assembler- 
language features as character_self- 

^§£iDiG2_t6™§. ^^^ 2^§;£§££§£_22Il§ti:Q:t§ per- 
mit the use of any of the 256 card codes. 
Appendix J shows the 256 EBCDIC character 
codes. 



MAJOR ASSEVIBLER LANGUAGE FEATURES 

E£23£§ E_lii§.till2§. • ^ listing of the source- 
program statements and the resulting 
object-program statements is produced by 
the Assembler for each source program it 
assembles. You can partly control the form 
and contents of the listing (see Figure 2) . 

Er rorlndicat ions : As a source program is 
assembled, it is analyzed for actual or 
potential errors in the use of the Assembl- 
er language. Detected errors are indicated 
in the program listing. 



OPERATING ENVIRONMENT 

The Assembler program is either tape- or 
disk-resident. The TPS Assembler program 
operates under control of the TPS Basic 
Monitor program and the DPS Assembler pro- 
gram under the control of the DPS Monitor 
program. Appendix K contains the minimam 
and maximum system configuration. 

For the TPS Assembler program,, the 
Assembler control card and the associated 
source-program input must be read on a card 
reading device. The object program may be 
punched into cards or written onto tape. 

For the DPS Assembler progran, the 
Assembler control card and the associated 
source-program input may be read on a card 
reading device or, in card-image format, 
from a magnetic tape. The object program 
is placed in the Relocatable Area oa the 
system disk pack and, in addition, may be 
punched into cards or written onto tape. 

The absolute or relocatable object pro- 
gram will then be processed as described in 
the Model 20 3RL publications describing 
the DPS and TPS Control and Service Pro- 
grams (Form numbers GC2t^-9006 and 
GC24-9000, respectively). 



Assembler Language -- Introduction 7 



Assembler Language Ceding Conventions 



This section discusses the general coding 
conventions associated with use of the 
Assembler language. 



The above statement boundaries ma/ be 
altered by means of the ICTL (Input Format 
Control) statement discussed later in this 
publication. 



UJitJUKXiTXiJIN Ui?" UULMVClMXiLJNb 



A source program is a sequence of source 
statements punched into cards. The state- 
ments may be written on the standard IBM 
coding form, X28-6509 (Figure 3). One line 
of coding on the form is punched into one 
card. The vsrticaj. columns on the i.orm 
correspond to card columns- 

Space is provided at the top of the form 
for program identification. You can also 
give instructions to the keypunch operator; 
any character code that does not have a 
corresponding printer graphic can be 
assigned any special graphic to identify 
the code to the keypunch operator, who can 
then punch the corresponding card punch 
code wherever he encounters the special 
graphic. (See under Character_Set for the 
representation of the valid character codes 
that can be used in a source program.) 
Neithejf the program information (Program, 
Programmer,, Date etc.) nor the instruc- 
tions to the keypunch operator are punched 
into a card; they are for your own use. 

The body of the form is composed of two 
fields: the statement field, columns 1-71, 
and the identification-sequence field, 
columns 73-80, The identification-sequence 
field is not part of a statement. 



^tateinent_Boundaries 

Source statements are normally contained in 
columns 1-71 (statement field) of the 
statement lines. However, macro instruc- 
tions (and only those) may be continued in 
columns 16 - 71 of as many continuation 
lines as required. Therefore, columns 1, 
71, and 16 are referred to as the "begin", 
"end",, and "continue" column, respectively. 



If a macro instruct 
beyond column 71 it is 
the next line. This i 
tinuation character in 
tinuation character ma 
character and is not c 
statement coding. The 
tinuation line precedi 
column, columns 1—15, 



ion line extends 
to be continued on 

s indicated by a con- 
column 72. The ccn- 

y be any non-blank 

onsidered part of the 
columns of the con- 

ng the continue 

must be blank. 



Statement _ Format 

Statements may consist of one to four 
entries in the statement field. These 
entries are, from left to right: name, 
operation, operands, and comments. The 
entries must be written in the order stated 
and separated from each other by one or 
more blanks. 

The coding form is ruled to provide an 
eight-character name field, a five- 
character operation field, and a 56- 
character operand and/or comments field. 

If you wish, you may disregard boun- 
daries and write the name,, operation, 
operand, and comment entries in other posi- 
tions, subject to the following rules: 

1. The entries must not extend beyond sta- 
tement boundaries (either the conven- 
tional boundaries, or the ones /on have 
designated by means of the ICTL 
statement) . 

2. The entries must be in proper sequence, 
as stated above. 

3. The entries must be separated from each 
other by one or more blanks. 

4. If used, a name entry must be written 
starting in the begin column. 

A description of the name, operation, 
operands,, and comments entries follows: 



Name: The name (also called label) is a 
symbol you create yourself to identify a 
statement or to represent an address or an 
arbitrary value. Whether a name entry is 
required, optional, or not permitted 
depends on the particular statement. 

The symbol must consist of eight charac- 
ters or less; it must be entered with the 
first character appearing in the begin 
column. If the begin column is blank, the 
Assembler program assumes no name has been 
entered. No blanks must appear within the 
symbol. 



Operation; The operation is a mnemonic 
code specifying the machine operation or 
Assembler function desired. An operation 
entry is mandatory and must start at least 
one position to the right of the begin 
column. 7alid mnemonic operation codes for 
machine and Assembler operations are con- 
tained in Appendixes A and 2 of this 
publication. 

Valid operation codes of your self- 
defined macro instructions must be alpham- 
eric and must not be longer than five 
characters. The leftmost character must be 
alphabetic. Special characters and/or 
embedded blanks are not permitted. 



Op erands; Operands identify and describe 
data to be acted upon by the instruction; 
they indicate such things as registers, 
storage locations, masks, storage-area 
lengths, or types of data. 

Depending on the needs of the instruc- 
tion, one or more operands may be written. 
Operands are required for all machine 
instructions. 

Operands must be separated from each 
other by commas. No blanks are permitted 
between operands and the separating commas. 

Symbols appearing in the operand field 
of a statement must be defined. A symbol 
is considered to be defined when it appears 
either in the name field of a statement or 
in the operand field of an EXTRN statement. 

The operands must not contain embedded 
blanks. However, if character representa- 
tion is used to specify a constant, a lit- 
eral,, or immediate data in an operand,, the 
character string may contain blanks. 



Comments ; Comments are descriptive items 
of information about the program that are 
to be inserted in the program listing. All 
valid characters including blanks (see 
Character S et) may be used in writing a 
comment. The entry must not extend beyond 
the end column (column 71) , and at least 
one blank must separate it from the 
operand. 

An entire line may be used for a comment 
by placing an asterisk in the begin column. 
Extensive comments entries may be written 
by using a series of lines with an asterisk 
in the begin column of each line. 

In statements where either an optional 
operand is omitted or an operand is not 
permitted but a comments entry is desired, 
the absence of the operand must be indi- 
cated by a comma preceded and followed by 
one or more blanks, as follows; 



r T T 1 

I Name ] Operation | Operand | 

^ 1 1 ^ 

I I END I , commeat | 

L X J. J 

^tatement_Examgle: The following example 
illustrates the use of name, operation, 
operand, and comments entries. An Add 
instruction has been named by the s/mbol 
ADD; the operation entry (AR) is the mne- 
monic for a register-to-registar add opera- 
tion, the two operands, eight and nine, 
designate the two general registers. The 
comments entry will remind you that you are 
adding "new sum" to "old" with this 
instruction. 



r T T 1 

I Name | Operation | Operand | 

^ _| 1 ^ 

I ADD I AR I 8, 9 NEW SQM TO OLD ] 

L JL X J 

Figure 3 shows an example entered on the 
standard coding form. Since, in this 
example, the keyboard is assumed not to 
have a graphic for the character code >, 
the character code & has been chosen as a 
substitute. This is indicated to the key- 
punch operator on the coding sheet . 



Identification-Sequence Field 

The identification-sequence field of the 
coding form (columns 73 -- 80) is used to 
enter program identification and/or 
statement-sequence characters. The entry 
is optional. If the field, or a portion of 
it, is used for program identification, the 
identification is punched by the user in 
the statement cards, and reproduced by the 
Assembler in the printed listing of the 
source program. 

To aid in keeping source statements in 
order, you may code an ascending sequence 
of characters in this field or a portion of 
it. These characters are punched into 
their respective cards. During assembly, 
you may request the Assembler to verify 
this sequence by the use of the ISEQ (Input 
Sequence Checking) statement. This 
instruction is discussed later in this 
publication. 



SUMMARY OF CODINC 



:ONVENTIONS 



The "begin", "end", and "continue" columns 
are 1, 71, and 16 respectively unless the 
statement boundaries are altered by means 
of an ICTL instruction. 
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All entries must be contained within the The name and operation entries mast not 
designated begin and end column boundaries. contain blanks. Operand entries oaust not 
The entries in a statetnent must always be have a blank preceding or following the 
separated by at least one blank and must be commas that separate them. 
in the follOwxng order: nanrief operation^ 
operand ( s ) , comment . 

A name entry must always start in the 

Depending on the particular statement, a begin column, 
name entry is either required,, or optional, 
or not permitted. Every statement, with 

the exception of comments statement. Column 72 must be blank, except for 

requires an operation entry. Operand macro instructions, for which a continua- 
entries are required for all machine tion punch may be placed in colaonn 72. 

instructions and most Assembler instruc- 
tions. Comment entries are optional. 
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Figure 3, Coding Form 



Assembler-Language Coding Conventions LL 



Terms and Expressions 



An operand is composed of one or more 
§?£R£§5§.i°[l§» which,, in turn, are composed 
Oj. a j-erifi ol an arxtiifusdc comt)inaL.xon or 
terms. 



Self-defining terms are classed as abso- 
lute terms since the value they represent 
does not change upon progratn relocation. 



I Terms and expressions are used in 
ooerands to define storage locations, qen- 
I eral registers,, immediate data, or constant 
I values. 



Terms 

All terms represent a value. This value 
may be assigned by the Assembler program 
(symbols, symbol length attribute. Location 
Counter reference) or may be inherent in 
the term itself (self-defining terms). 

Terms are classed as absolute or relo- 
catable. They are absolute or relocatable 
according to the effect of program reloca- 
tion upon them. 

Program relocation is defined as: 

• either reassembling the program with a 
different starting address 

• or relocating the program - by means of 
the Linkage Editor Program - to storage 
locations other than those originally 
assigned by the Assembler program. 

A term is absolute if its value does not 
change upon relocation. A term is relocat- 
able if its value changes by n when the 
program is relocated n bytes away from the 
location where it is first assembled. 

The section below discusses each type of 
term and che rules for its use. 



SELF-DEFINING TERMS 



12§.i2.3._§® ii-Z^ e f i ni n3._Te r ms : Self-defining 
terms are the means of specifying machine- 
language binary values or bit configura- 
tions without equating the valaa to a 
symbol. 

Self-defining terms may be used to spe- 
cify such program elements as immediate 
data, masks, registers, and addresses. The 
type of term selected (decimal, hexadecim- 
al, binary, or character) depends on vhat 
is being specified. 

Self-defining terms are not to be con- 
fused with data constants or literals. 
When a self-daf ining term is used in a 
machine instruction, its value is assembled 
into the instruction. When a data constant 
or literal is specified in the operand of 
an instruction, its address is assembled 
into the instruction. 

Limitations on the valae of the term 
depend on its use. For example, a decimal 
term that designates a general register 
should have a value between 8 and 15 inclu- 
sively; one that represents a displacement 
should not exceed 4095. 



Decimal Self-pef ining Term; A decimal 
self-defining term is an ansigned decimal 
number written as a sequence of decimal 
digits. High-order zeros may be used. 

A decimal term must not consist of more 
than five digits, or exceed 32,767 (2^5-1), 
A decimal term is assembled as its binary 
equivalent. 

Some examples of decimal self-defining 
terms are: 8, 147, 4092, 00021. 



A self-defining term is one whose value is 
inherent in the term. It is not assigned a 
value by the Assembler program. For 
example, the decimal self-defining term 15 
represents a value of fifteen. 



X. WUJ. 



ypes 



terms: decimal, hexadecimal, binary, and 
2^§5§2ter. Accordingly, we speak of decim- 
al, hexadecimal, binary, or character 
representation of the machine-language 
binary valup f'^^ ^^ 
represents. 



S^iS§.^S2i!S§:i_§^il.Z^§I.iQiQ:2_£®£S* ^ hexade- 
cimal self-defining term is an ansigned 
hexadecimal number written as a seqaence of 
hexadecimal digits. The digits must be 
enclosed in apostrophes and preceded by the 
letter X; for example, X'C:49'. 

Each hexadecimal digit is assembled as 
its four-bit binary equivalent. Thus, a 
hexadecimal term used to represent an 
eight-^bit mask would consist of two hexade- 
cimal digits. The maximum value of a hexa- 
decim.al term is X' 7FFF' . 
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The hexadecimal digits and their bit 
patterns are as follows: 

r T T T 1 



Hex 




Hex 




Dig. 


Pattern 


Dig. 


Pattern 


_ _J 


1 J 


L^ 4- 






— -r- 







0000 


8 


1000 


1 


0001 


9 


1001 


2 


0010 


A 


1010 


3 


0011 


B 


1011 


4 


0100 


C 


1100 


5 


0101 


D 


1101 


6 


Olio 


E 


1110 


7 


0111 


F 


1111 



character term. In addition, any of the 
256 punch combinations (shown in Appendix 
J) may be used in a character self-defining 
term. Examples of character self-defining 
terms are as follows: 



L i 1 X J 

h table for converting hexadecimal to 
decimal representations is provided in 
Appendix L. 

A hexadecimal self-defining term that is 
not specified as a complete byte is 
assembled as one byte. The specified bits 
are assembled right- justified, and the por- 
tion of the byte not specified is padded 
with binary zeros. For example, X'F' would 
be assembled as 00001111. 

Binary Self-Defining Term; A. binary self- 
defining term is written as an unsigned 
sequence of ones and zeros enclosed in apo- 
strophes and preceded by the letter B. For 
example, B'lOOOllOl'. This term would 
appear in storage as shown within the apos- 
trophes and occupy one byte. A binary term 
may have up to eight bits represented. 

Binary representation is used primarily 
in designating bit patterns of masks or in 
logical operations. 

The following example illustrates a 
binary term used as a mask in a TM (Test- 
Under-Mask instruction. The contents of 
GAMMA are to be tested, bit by bit, against 
the pattern of bits represented by the 
binary term. 

r T T 1 

I Name ] Operation | Operand | 

j. ___! 1 ^ 

I ALPHA ITM I GAyiy[A,B' 10101101' ] 

L J. J. J 

A binary self-defining term that is not 
specified as a complete byte is assembled 
as one byte. The specified bits are 
assembled right- justified, and the portion 
of the byte not specified is padded with 
binary zeros. For example, B'lOlOll' would 
be assembled as 00101011. 

Char ac ter _Sel f - Def ining_Te r m : A character 
self-defining term consists of one charact- 
er enclosed by apostrophes and preceded by 
the letter C. All letters, decimal digits, 
and special characters may be used in a 



A" 



C ' (blank) 

Ot -1 I 



Because of the use of apostrophes in the 
Assembler language and ampersands in the 
macro language as syntactic characters, the 
following rule must be observed when using 
these characters in a character tern: 

For each apostrophe or ampersand desired 
in a character term, two apostrophes or 
ampersands must be written. For example, 
the character value ' would be written as 
C • " and the value S as 2'g&'. 

The character is assembled as its eight- 
bit code equivalent (see Appendix J). The 
two apostrophes or ampersands that must be 
used to represent an apostrophe or an 
ampersand are assembled as one apostrophe 
or ampersand. 



ASSEMBLER PROGRAM DEFINED TERMS 

Terms whose value depends on the Assembler 
program are classified as Assembler program 
defined terms although you actually create 
them yourself. The classification is made 
to distinguish these terms from the self- 
defining terms. 

Sy^mbols 

A symbol is a character or combination of 
characters used to identify a statement or 
to represent addresses or arbitrary values. 

Symbols are used as names and in 
operands to provide you with an efficient 
way to name and to refer to a program sta- 
tement. A symbol, which you create for use 
as a name entry or in an operand, must con- 
form to the f 2ll2*?iQ3_£liiss: 

1. The symbol must not consist of more 
than eight characters, the first of 
which must be alphabetic. The other 
characters may be letters, digits, or a 
combination of the two. Since symbols 
used by IOCS begin with I, symbols in 
problem programs should_n.ot begin with 
the letter I. Also, the symbol or the 
first portion of a symbol (ap to seven 
characters) in problem programs shoiild 
not be the same as the file name in a 
DTF header entry. (For further 
details, refer to ttie SRL publications 
describing the pertinent Input/Output 
Control System.) 



2. No special characters are psrmitted in 
a symbol. 
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3. No blanks are permitted in a symbol. 

The following are examples of valid 
symbols : 



gram that was assembled saparatalv from th? 
first (see under S2mbolic_Linkages) . 



READER 


L00P2 


$13 


A23U56 


N 


aPRICE 


X4F2 


SH 


#LB1 



The following symbols are invalid, for 
the reasons noted: 

256b first character is not 

alphabetic 
REC0RDAREA.2 more than eight characters 
BCD* 34 contains a special character, 

namely * 
IN AREA contains a blank 

Def in i ng Sytnbols ; A symbol is defined when 
it appears as the name of a source state- 
ment or as the operand of an EXTRN state- 
ment. The Assembler program assigns a 
Value to each symbol appearing as a name 
entry in a source statement. The value 
assigned to symbols naming storage areas, 
machine instructions, constants, and con- 
trol sections represents the address of the 
leftmost byte of the storage field contain- 
ing the named item, since the addresses of 
these items change upon program relocation, 
the symbols naming them are reloca table 
terms. 

A symbol used as a name entry in the EQU 
(Equate Symbol) Assembler instruction is 
assigned the value stated as the operand of 
the instruction. Since the operand may 
represent either a relocatable or an abso- 
lute value^ the symbol is considered a 
reloca table or abs olute term depending upon 
the value to which it is eijuated. 

The value of a relocatable symbol may 
vary between and 2^5-1 (=32767). The 
value of absolute symbols may vary between 
„2is (--32768) and 2'^^-! (=32767). 

Symbol definition also involves the 
assignment of a length_attribute to the 
symbol. (The Assembler program maintains 
an internal table, the symbol table, in 
which the values and attributes of symbols 
are kept. When the Assembler program 
encounters a symbol in an operand, it 
refers to the table for the values asso- 
ciated with the symbol.) The length attri- 
bute of a symbol is the size,, in bytes, of 
the storage field whose address is repre- 
sented by the symbol. For example, a sym- 
bol naming an instruction that occupies 
four bytes of storage has a length attri- 
bute of four. 

Normally, symbols are defined in the 
same program in which they are used as 
operands. However, you can define a symbol 
in one oroaram and use it in another pro- 



Previous i y_iJci liieu_o^iiiu^X3 
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called "previously defined" if it has 
appeared as a name in an instruction or as 
the operand in an EXTRN statement prior to 
being used as an operand in a different 
instruction. Symbols used in the operands 
of the Assembler instructions DR3 and E20 
must have been previously defined. 

3eneral_Restrictions_C)n_ Sy mbols; A symbol 
may be defined only once in an assembly. 
That is, each symbol used as the nane of a 
statement or as the operand of an EXTRN 
instruction miist be unique to that 
assembly. 



Symbol Length Attribute Refe r en c e 
(absolute) 

The length attribute may be used as a term. 
Reference to the attribute is made by cod- 
ing L* followed by the symbol, e.g., L' BE- 
TA. The L'.... term allows coding where 
lengths are unknown. 

The following example illustrates the 
use of L' symbol in moving a character con- 
stant into either the high-order or low- 
order end of a storage field. 



r T T 

[Name | Operation | Operand 



j. 

|A1 
I 82 

JHIORD 
I LOORD 



jDS 
JDC 
|MVC 
IMVC 



H 



1CL2'AB' I 

|A1(L'B2),B2 I 

|A1+L'A1-L'B2(L'B2),B2| 

-X J 



Al names a storage field eight bytes in 
length and is assigned a length attribute 
of eight. B2 names a character constant 
two bytes in length and is assigned a 
length attribute of two. The statement 
named HIORD moves the contents of B2 into 
the leftmost two bytes of Al . The term 
L'B2 in parentheses provides the length 
specification required by the instraction. 
When the instruction is assembled, the 
length is placed into the proper field of 
the machine instruction. 

LOORD moves the contents of B2 into the 
right-most two bytes of Al. A1+L'A1-L'B2 
results in the addition of the length of Al 
to the beginning address of Al, and the 
subtraction of the length of B2 fro.ii this 
value. The result is the address of the 
seventh byte in field Al. The constant 
represented by B2 is moved into Al starting 
at this address. L* B2 in parentheses pro- 
vides lenrrth specification as in HIORD. 
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Location c:ounter_Reference 

You may refer to the current value of the 
location counter at any place 
in a program,, by using an asterisk in an 
operand. The asterisk represents the cur- 
rent value of the location counter. 

Using an asterisk in a machine instruc- 
tion or DC-instruction is the same as plac- 
ing a symbol in the name field of the par- 
ticular instruction and then using that 
symbol rather than the asterisk in the 
operand. 

A reference to the location counter must 
not be made in an address constant speci- 
fied in literal form. 

Th e Location Counter: In each control sec- 
tion a location counter is used to assign 
storage addresses to program instructions 
occupying storage, As each machine or DC- 
inst;ruction or data area is assembled, the 
location counter is first adjusted to the 
proper boundary for the item, if adjustment 
is necessary. After the instruction is 
assembled the location counter is incre- 
mented by the length of the assembled item. 
Thus, it always points to the next avail- 
able location. If an instruction is named 
by a symbol, the value attribute of the 
symbol is the value of the location counter 
after boundary adjustment, but before addi- 
tion of the length. 

The location counter setting can be con- 
trolled by using the START and ORG Assembl- 
er instructions, which are described under 
Program Sectioning_^and Linking. The count- 
er affected by either of these Assembler 
instructions is the counter for the control 
section in which they appear. The maximum 
value for the location counter is 2^5_j^ 
(=32767), 



Two of the terms wi 
sion can be grouped wi 
indicate the order in 
evaluated. When terms 
encountered in combina 
terra, the combination 
parentheses is first r 
value. This value the 
the rest of the expres 
single value. 



thin a 3-term expres- 
thin parentheses to 
which they are to be 

in parentheses are 
tion with another 
of terms inside the 
educed to a single 
n is used in reducing 
sion to another 



The rules for combining terms are dis- 
cussed under Absolute_and_Relocatable 
Expres si ons. In addition to these, the 
following rules apply to the coding of 
expressions: 

1. An expression must not start with an 
arithmetic operator (+,-,*). 

2. An expression must not contain two 
terms or two operators in succession. 

3. An expression must not consist of more 
than 3 terms. 

4. An expression must not have more than 
one pair of parentheses. 

5. A multi-term expression must not con- 
tain a literal. 

The following are examples of valid 
expressions: 

AREA1+X'2D' (EXIT-ENrRy)*8 29 

♦+32 =H'1234* L' FIELD 

N-25 L'BETA*10 C A' 

FIELD B'lOl' LAMB0A+3AVIMA 

FIELD+332 

In the example *+32, the asterisk is not 
used as an operator. 



EVALUATION OF EXPRESSIONS 



Expressions 

Expressions are operand entries consisting 
of either a single term or an arithmetic 
combination of terms. 

Up to three terms can be combined with 
the following arithmetic operators: 

+ addition, e.g., ALPHA+2 

subtraction, e.g., ALPHA-BETA 
* multiplication, e.g., 5*L'DATA 

Note: The character * (asterisk) has two 
meanings when used in an operand: 

1. Reference to the location counter (in 
this case it is not an operator) . 

2. Arithmetic operator (multiplication). 



A single term expression,, e.g^, 29, BETA, 
*, or L' SYMBOL, takes on the value of the 
term involved. A multi-term expression 
(e.g., BETA+10, ENTRY-EXIT, 10+A*B) is 
reduced to a single value, as follows: 

1. Each term is given its value. 

2. Expressions within parentheses are eva- 
luated first. 

3. Arithmetic operations are performed 
left to right. Multiplication is done 
before addition and subtraction, e.g., 
A+B+C is evaluated as A+(B*C), not 
(A+B)*C. The computed result is the 
value of the expression. 

Final values of expressions representing 
storage addresses may vary between and 
2^5-1. However, intermediate results may 
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vary between -2^^ (=-32768) and 2^5-1 
(=32767). 



ABSOLUTE hl^D RELOCATABLE EXPRESSIONS 

A.n expression is called absolute if its 
value is not affected by program reloca- 
■cxon« nVi sxprsooxon is caxxsQ rexocauaoxe 
if its value changes upon program reloca- 
tion. The two types of expressions, abso- 
lute and relocatable, take on these charac- 
teristics from the term, or term.s they 
contain. 

Two terms of an expression are said to 
be paired if both are relocatable, defined 
in the same control section, and have oppo- 
site signs. Any other term of an expres- 
sion is called unpaired. 

An absolute expression may be an absolute 
term or any arithmetic combination of abso- 
lute terms. An absolute term may be an 
absolute symbol, any of the self-defining 
terms, or the length attribute reference. 
Addition, subtraction, and multiplication 
are permitted between absolute terms. 

An absolute expression may contain two 
relocatable terms (RT) — alone or in com- 
bination with an absolute term (AT) -- 
under the following conditions: 

1. The relocatable terms must be paired. 
The paired terms do not have to be con- 
tiguous, e.g., RT+AT-RT. 

2. No relocatable term must enter into a 
multiply operation. Thus, RT-RT*10 is 
invalid. However, (RT-RD+IO is valid. 

The pairing of relocatable terms cancels 
the effect of reiocatxon. Therefore, the 
value represented by the paired terms 
remains constant, regardless of program 
relocation. For example, in the absolute 
expression A-Ri+Rat A is an absolute term, 
and Ra and Rj_ are relocatable terms from 
the same control section. If A = 50, Rj. = 
25, and Rg = 10, the value of the expres- 
sion would be 35, If R^, and Ri are relo- 
cated by a factor of 100 their values would 
then be 125 and 110. However, the expres- 
sion would still be evaluated as 35 
(50-125+110=35). 

Absolute expressions are reduced to a 
single absolute value. Absolute expre- 
ssions may only be negative in address con- 
stants (see DC instruction) . 



A-Ri+Ra 

A 

A*A 

Ra-Ri+A 

:k — O ( T> -K- Q -F Q ■>-- r> n <-■ Q i- r\ 1- K Q 1 r\/->o4--i '\r-> r^ rM i n 4- Q r" 

is paired with another relocatable 
term from the same control section) . 



BL6i.O£§.t§.^le_Ex£r ess ions 

A relocatable expression is one whose value 
would chanae bv n if the oroaram in which 
it appears is relocated n bytes awa/ from 
its originally assigned area of storage. 
All relocatable expressions have a positive 
value. 



A relocatable expression may be a relo- 
catable term. A relocatable expression may 
also contain several relocatable terms -- 
alone or in combination with absolute terms 
— under the following conditions: 

1. There must be an odd_number, 1 or 3, of 
relocatable terms. 

2. If a relocatable expression contains 
three relocatable terms, two of them 
must be paired. 

3. The unpaired term must be positive. 

U. Relocatable terms must not enter into 
multiply operations. 

A relocatable expression is reduced to a 
single relocatable value. This value is 
the value of the unpaired relocatable terttj 
adjusted by the values represented by the 
absolute terms and/or paired relocatable 
terms associated with it. 
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The following examples illustrate relo- 
catable expressions. A is an absolute 
term, R3 and R2 are relocatable terns from 

«^ 1 J. € kJ f-d. Llli^ V^>^Xl^^J_t^J- >->\.^\^l^JLi^LJ.* ^^1 .X. <J Oi I- ^:^ ^ \j \^ Z2. \^ 

able term from a different control section. 



The following examples illustrate abso- 
lute expressions. A is an absolute term; 
R2 and Ri are relocatable terms from the 
same control section. 



Ri-32*A R3-R3+* 
R3 "Ra "*' ^1 
* (reference to 
location counter) 



=H'1234' (literal) 

A+A+R3 

Ra-Ra+Ra 

Ri 
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Machine Instructions 



This section deals with the coding of the 
machine instructions featured in the 
Assembler language. Machine instruction 
statements are used to tell the Assembler 
to generate the object (machine language) 
coding for Model 20 instructions. Format 
and function of each machine instruction 
are described and the use of each instruc- 
tion is illustrated by an example. 

Object Format of Machine 
Instructions 

The instruction format indicates the length 
of the instriiction and the type of opera- 
tion to be performed. The length of the 
instruction can be one, two, or three half- 
words. The types of instruction formats 
are shown in Figure 4. 



FIrrt Halfwocd 
>yf 1} M« 2 



Swond Halfword Third Halfwqid 



RR Format 



(Ufliftcr R«sitt*r 
Operand 1 Operand 2 



Opcode R, "^ 



7IB 1112 15| 



Reststor 
Operand 1 



Addien 
Operand 2 



RX Formot 



Op Code R, ^ B2 P; 

) ZJB 11121516 19 20 31 



i Immediatei 

[Operand 



SI Fonnat 



Op Code 



7 8 




Addrets 
Operand 1 



15116 19 20 
I 



3li 



j Length | Addren 

Operand 1 Operand 2 Operand 1 



SS Decimal Format 



OpCodek |4 B, 
) 7 8 1112151619 



Address 
Operand 2 



SS Logical Formot 



\E 



20 



Addrets 



31P2 35 36 



47 



Addren 



Length 



Code 



Operand 1 | Operand 2 

A .^^ A 



78 



15 16 19 20 



31 3235 36 



47 



RR_Format: 
operation. 



Denotes a register-to-register 



RX Fo rmat: Denotes a register-to-storage 
or a storage-to-register operation. In 
this format, bits 12 through 15 must be 
zero. 

SI_Format: Denotes a storage-immediate 
operation. In this format the 12 field of 
the instruction is the second operand. 



SS Format; 
operation. 



Denotes a storage-to-storage 



In each format, the first byte of the 
first halfword contains the operation code, 
commonly referred to as the op-code. 

The second byte of the first halfword 
may be used to contain data, specify e 
operand lengths, or specify registers to be 
used by the operation. Each instruction 
consists of an op-code and two operands. 



Machine— Instruction Alignment 

All machine instructions are automatically 
aligned by the Assembler on halfword bound- 
ary. If any instruction that causes infor- 
mation to be assembled requires alignment, 
the byte skipped is filled with hexadecimal 
zeros. 



Machine-Instruction Mnemonic Codes 

The mnemonic operation codes (shown in 
Appendix A) are designed to be easily- 
remembered codes that indicate the func- 
tions of the instructions. The normal for- 
mat of the code is shown below; the items 
in brackets are not necessarily present in 
all codes: 

Verb [Modifier] [Data Type] [Machine 
Format] 

The verb, which is usually one or two 
characters, specifies the function. For 
example, A represents Add and M7 represents 
Move. The function may be further defined 
by a modifier. For example, the modifier L 
indicates a logical function and the C a 
character as data type, as in CLC for Com- 
pare Logical Character. 



Figure 4, object Format of Machine 
Instructions 



The letters R and I are added to the 
codes to indicate, respectively, RR and SI 
machine instruction formats. Thus, AR 
indicates Add in the RR format. Functions 
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involving character and decimal data types 
imply the SS format. 



RYTRNfnRn MMF.MOMTr POnFR 



For your convenience, the A.ssembler pro- 
vides extended mnemonic codes, which allow 









monically as well as through the use of the 
BC machine-instruction. These extended 
mnemonic codes specify both the machine 
branch instruction and the condition on 
which the branch is to occur. The codes 
are not part of the machine instruction, 
but are translated by the ?lssembler into 
the corresponding operation and condition 
combinations. 

The extended mnemonic codes and their 
operand formats are shown in ^.ppendix A 
together with their machine instruction 
equivalents. Unless otherwise noted, all 
extended mnemonics shown are for instruc- 
tions in the RX format. The only dif- 
ference between the operand fields of the 
extended mnemonics and those of their 
machine-instruction equivalents is the 
absence of the Rl field and the comma that 
separates it from the rest of the operand 
field. 

The extended mnemonic list, like the 
machine-instruction list, shows explicit 
address formats only. Each address can 
also be specified as an implied address. 
Examples illustrating instructions using 
extended mnemonic codes are given below. 



I Name | Operation | Operand 



B 


1 40(0,8 


BNL 


1 GO 


BO 


1 8 


BR 


1 REG9 



The first instruction specifies an 
unconditional branch to an explicit 
address. The address is the sum of the 
contents of base register 8 and the displa- 
cement 4^0. The second instruction specie 
fies a branch on not low to the address 
implied by GO. The next to last instruc- 
tion is a branch on one to the address con- 
tained in register 8. The last instruction 
is an unconditional branch to the address 
contained in the register equated to RE39 
elsewhere in the program. 

Machine^ Instruct ion Operands 

The operands of a machine instruction are 
referred to as first and second operands. 
They have,, in the following examples, a 
subscript (1 or 2) to the code letter for 



the field to indicate a particular operand 
(e.g., Rl, Ra, Li, Da etc.). 

There are three types of operands: 

1. Operands that are main-storage 
addresses. 

byte constants. 

3* Operands that are the general 
registers. 

The address specified in an instruction 
always refers to the leftmost byte of the 
field addressed. There is no relation 
between the address specified in the 
operand and that of the instruction. 

The length of an addressed data field 
may be fixed or variable. In the latter 
case, the length is indicated in the length 
field (L) of the operand. The L-field 
indicates the number of bytes used. The 
maximum length of a field is 256 bytes. 

Immediate data is used only as the 
second operand in logical operations in the 
SI-Format. The length is one byte and, 
being part of an instruction, inmediate 
data has no address. 

Data in registers have a fixed length of 
one halfword. 



OPERAND FIELDS ?IND SUBFIELD3 

Some symbolic operands are written as a 
single field. Other operands are written 
as a field followed by one or two sub- 
fields. For example, addresses consist of 
the contents of a base register and a dis- 
placement, hn operand that specifies a 
base register and displacement is i^ritten 
as a displacement field followed by a base 
register subfield, as follows: 40(8). 
Since the Model 20 does not hav^e index 
registers, the base register subfield must 
be preceded by a zero and a comma in the RX 
format, e.g., 40(0,8). In the SS format, a 
length subfield and a base register sub- 
field are written as follows: 40(21,8). 

A comma must be written to separate 
operands. Parentheses must be written to 
enclose a subfield or subfields, and a 
comma must be written to separate two sub- 
fields within parentheses. When paren- 

and the subfield is omitted, the paren- 
theses must be omitted. 

In the case of two subfields separated 
by a comma and enclosed by parentheses, the 
following rules applv: 
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If both subfields are o:nitted, the 
separating comma and the parentheses 
must also be omitted. For example: 



LH 
LH 



12,48(0,15) 
12, FIELD 



(implicit address) 



3. 



If the first subfield in the sequence 
is omitted, the comma that separates it 
from the second subfield is i^ritten. 
The parentheses must also be written. 
For example: 

M\IC 32(16,15) ,FIELD2 
MVC BETA.(,15) ,FIELD2 (implicit 

length) 

If in the RX format a base register is 
specified, the first subfield (index 
register) must be specified as a zero 
because this subfield is not used. 
This zero [nust_not_be omitted. For 
example: LH 12,48(0,15) 

If the second subfield in the sequence 
is omitted, the comma that separates it 
from the first subfield must be 
omitted. The parentheses must be writ- 
ten. For example: 



MVC 32(16,15) ,FIELD2 
MVC FIELD1(16),FIELD2 



(implicit 
address) 



Fields and subfields in a symbolic 
operand may be represented by absolute or 
relocatable expressions, depending on what 
the field requires. Refer to Appendix B 
for a detailed description of field 
requirenients. 

Blanks must not appear in an operand 
unless provided by a character self- 
defining term or a character literal. 
Thus, blanks are not permitted between 
fields and the comma separators, between 
parentheses and fields, etc. 

In the following, when we speak of a 
data field or storage field, we mean the 
field in main storage defined by the fields 
and subfields of the first or second 
operand of a machine instruction. 



Explicit and Implicit Adressing 



Byte locations in stor 
binary form and are nu 
from hexadecimal 0000 
the available storage, 
(bytes 0000-0143) are 
CPU control and thus n 
program. The location 
group of bytes is spec 
of the leftmost byte. 



age are expre 
mbered consec 
to the upper 

The first 1 
reserved for 
ot available 

of any field 
ified by the 



ssed in 
utively 
limit of 
44 bytes 
internal 
to the 

or 
address 



Appendix B shows two types of addressing 
formats for RX, SI, and S3 instructions. 
In each case, the first type shows the 
method of specifying an address explicitly 
as a base register and a displacement. The 
second type indicates how to specify an 
implied address as a relocatable 
expression. 



EXPLICIT ADDRESSING 

If you use explicit addressing in an 
operand you must specify a base register 
and a displacement. For example, explicit 
addressing is used in the first operand of 
the following Move-Immediate instruction: 



MVI 



Di(Bi) ,X'FO' 



where D^ is the displacement and Bi_ is the 
base register. Bi may be an absolute 
expression with a value between and 15 
inclusive. D^ may be an absolute expres- 
sion with a value between and 4095 inclu- 
sive. The address specified in an operand 
occupies one half word of the object code. 

At object time, the Model 20 differen- 
tiates between a base register specifica- 
tion of 0<Bi<7 and 8<Bi<15. 



Case_0^BL^7__(^Direct_Addressing;)_ 

The content of the halfword containing the 
address is taken as the effective address 
by the CPU. For example, the source 
statement 

MVI 4095(3) ,X'FO' 

will be assembled as follows 

92F03FFF (object code). 

The CPU takes the second halfword (3FFF) 
of the object code directly as the effec- 
tive address (16383) of the field addressed 
by the first operand. Therefore, one 
speaks of direct addressing. 

QS§§_8iBa^^l5_Xlndirect_Addressing)_ 

Here, the first four bits of tae halfword 
containing the address specify one of the 
general registers 8 through 15. The other 
12 bits contain the displacement. The CPQ 
adds the content of the general register to 
the displacement to form the effective 
address. For example, the source stateTient 

MVI 1095(9), X'FO' 

will be assembled as follows 

92F09447 (object code). 
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The CPQ adds the content of register 9 
(assumed to have been loaded previously 
with a value of 14288 or 37D0 hexadecimal) 
and 1095 (hexadecimal UU?) to get the effe- 
ctive address 16383 (hexadecimal 3FFF) , 
This is referred to as effective or 
indirect addressing. 



language and as it >?ould be asseiibled. 
Note that the value of Da is the difference 
between 7U00 and 4096 and that K2 is 
assembled as zero, since doable indexing is 
not nossible on Model 20= The assembled 
instruction is presented in hexadecimal 
notation: 



IMPLICIT ?^DDRESSIN3 

If you use implicit addressing you xiust 
specify an expression to represent an 
address. The expression may either be 
absoluLe or relocatable. 

Absolut e_Ex2ression 

The value of the expression must not exceed 
U095 (hexadecimal FFF) . The Assembler 
regards this absolute expression as displa- 
cement and automatically assumes base 
register 0. For example, the source 
statement 

BC 15,E0J 

where the absolute expression EOJ has the 
value 194 (hexadecimal 0C2) , will be 
assembled as follows 

47F000::2 (object code). 

B D 

Again, at object time, we have direct 
addressing as described above, 

5®]i22^£l.^ls_Ex2ression 

In this case, the Assembler uses the value 
of the relocatable expression to calculate 
base register and displacement. To this 
end, you must tell the Assembler which 
register to use as base register by issuing 
USING and DROP instructions. 

You can find an explanation on how to. 
use the USING and DROP instructions in the 
section Ba se_Reg;ister _Ins true t ion _S tat e^ 
ments. You will find that the iiiplicit 
addressing feature of the Assembler lan- 
guage is a great help to you. It relieves 
you of the necessity to separate each 
storage address into a displacement value 
and a base address value, thus eliminating 
a likely source of error and reducing the 
time required to check out your program. 

For example, assume that FIELD is a 
relocatable symbol, which has been assigned 
a value of 7400. Assum.e also that the 
Assembler has been notified (by a USING 
instruction) that general register 8 cur- 
rently contains a relocatable value of 4096 
and is available as a base register. The 
followin"^ exami^le shows a machine instruc- 
tion as it would be written in Asseiibler 






Assembled instruction: 



1 Op. code |Ri 1X2 IB2 ID2 1 
J. 1___|___^.___| ^ 

I 40 |E |0 I 8 |CE8 I 

L X X X X J 

Here again, direct and indirect addres- 
sing is possible depending on whether you 
specify one of the pseudo registers 
through 7 or one of the general registers 8 
through 15. Direct and indirect addressing 
is explained under Exglicit_Addressing. 

A special application of implicit 
addressing is relative_addressin.g: 

Relative addressing is the technique of 
addressing instructions and data areas by 
designating their location in relation to 
the location counter or to soTie syiibolic 
location. This type of addressing is 
always in bytes, never in bits, halfwords, 
or instructions. Tlius, the expression * + 4 
specifies an address that is four bytes 
greater than the current value of the loca- 
tion counter. 

In the seanence of instructiDns shown in 
the following example, the location of the 
SR machine instruction can be expressed in 
two ways, ALPHA+2 or BErA-4, because all of 
the rmnemonics in the example are for 
instructions /\?ith a length of tvo bytes. 



Name j Operation j Operand j 

y 1 1 ^ 



ALPHA 



BETA 



AR 
SR 

BCR 

AR 

B 



I 13,14 
I 14,15 
I 1,H* 
I 12,13 

! ALPHA+2 
-X. 



L X X J 



EXPLICIT AND IMPLICIT LENGTHS 

The length in SS instructions can be expli- 
cit or implied. To itrply a length, simply 
omit a length field from the operand. The 
omission indicates that the length field is 
either of the following: 

1. The length attribute of the expression 
specifying the displacement, if an 



<Z\J 



explicit base and displacement have 
been written (explicit addressing) . 



2. The length attribute of the expression 
specifi^ing the effective address, if 
the base and displacement have been 
implied (implicit addressing). 

In either case, the length attribute for 
an expression is the length attribute of 
the leftmost term in the expression. 

h self-defining term has the length 
attribute 1. Both a symbol referring to a 
machine instruction and a Location Counter 
reference have the length of the iastruc- 
tion in which they appear. The length 
attribute of a literal is determined the 
same way as that of a constant in a DC 
instruction. 

An explicit length is written in the 
operand as an absolute expression. The 
explicit length overrides any implied 
length. 

Whether the length is explicit or 
implied, it is always an effective length. 
The value inserted into the length field of 
the assembled instruction (object code) is 
one less than the effective length. If the 
specified length is a zero value, a zero is 
inserted into the length field. 

In the following example: 

r T — T 1 

I Name | Operation [Operand | 

|. _ ^ 1 ^ 

I I MVC I SYMBOL, A | 

I I- i I 

I U I i 

I SYMBOL IDS I CL3 ] 

L . J. X J 

three bytes are moved since the operand 
SYMBOL has an implicit length of 3 as 
defined by the DS instruction. ?^s shown 
below, the value inserted into the length 
field of the object code is two. 



r 1 T T T T 1 

|D2|02|Bi|Di|B2lD2| 

L X X X X X J 

Note the length specification of two. 



Using an explicit length, e.g: 

MVC SYMBOL (5) ,A 

would have the following effect: 



You may combine explicit and implicit 
addressing with explicit and implicit 
lengths. Examples are given below. 

Examples 

The following examples are groaped accord- 
ing to machine-instruction format. They 
illustrate the various symbolic operand 
formats. All symbols used in the examples 
are assumed to be defined either within the 
same assembly or by means of an EKTRM sta- 
tement within another assembly. All sym- 
bols specifying register numbers, masks, 
and lengths are assumed to be eguated, by 
an EQtJ instruction, elsewhere to absolute 
values. 

Implicit addressing, control section 
addressing, and the function of the tJSINS 
Assembler instruction are not considered 
here. For discussion of these considera- 
tions and for examples of coding sequences 
that illustrate them, refer to Prog;ram_Sec2 
tionin.g;_and Explicit_an.d_Iraplicit_Linking; 
and A3.dressin3^. 

RR_Format 

Both operands must be absolute expressions. 



r T T 

I Name ] Operation] Operand 

^ 1 ^ 

111, 12 

I REGll, RE312 

|RE310,D 

|LINKRE3,LINKRE: 
I 2,LINKREG 
I HIGH,LINKRE3 
__X 



The first operand must be an absolute 
expression. Explicit or implicit addres- 
sing or a literal may be used ia the second 
operand. A length cannot be specified. 



1 Name] Operation] Operand 

|A1 
1A2 
IBI 
|B2 
1B3 
|B4 
1B5 
|C1 



|A1 


1 AR 


1A2 


ISR 


|B1 


•1 BA3R 


|B2 


IBASR 


|C1 


IBCR 


|C2 


|BCR 


L 


X 


RX Format 



LH 

AH 

CH 

BC 

3H 

STH 

BA3 

AH 



CAL3RE3, 38 (0,10) 
CAL3RE3, DISPLl ( D , RE! 
CALCRE3,MAXIMUyi 
LO;^, *+8 

CALCRE3,BIlM1003 
CALCRE3, RESULI 
REGS, SOON 
REGll, =H'1000' 



10) 



r--T T--T--T--T--'! 

|D2|0U|BilDilB2lD2| 

L X X X X X J 

Note the length specification of four. 



Instructions Al and A2 use explicit 
addressing; the first subfield within the 
parentheses must not be omitted and mast be 
zero because double indexing is not poss- 
ible in the Model 20. Instructioas Bl, B2, 
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B3, B4, and B5 use implicit addressing. 
CI contains a literal. 



SI_Forcnat 

Explicit and implicit addressing may be 
used in the first operand. The second 



^^^^.-,^-5 



,,-,,-.*. u. 



-, U«„T 



expression with a value bet^^^een and 255 
(hexadecimal 00 and FF) inclusively. h 
length cannot be specified. 



T 7 T -■ 

Namej Opecationj Operand 



hi 


ICLI 


A2 


|M7I 


A3 


jHPR 


Bl 


|NI 


B2 


|0I 


B3 


irw 


BH 


isps;^ 




_ 1 



|40(9),X'40' 
|DISPL(REG9) , BLANK 
|STOP01DO,0 

I SWBYTE, X' FF' -BIT0-BIT7 
isWBYTE,BirO+Bir7 
I BYTE, MASK 
I NEWPSW 
.i 



Instructions Al, A2, and A3 use explicit 
addressing, instructions Bl, B2, B3, and B4 
use implicit addressing. 

SS_Decimal,_Forcnat 

A combination of explicit and implicit 
addressing with explicit and implicit 
length is possible in both operands. Thus, 
for both operands you have the following 
four possibilities: 

• explicit addressing with explicit length 

• explicit addressing with implirih length 

• implicit addressing with explicit length 

• implicit addressing with implicit length 

Literals may be used in the second 
operand only. 



J. ^^ ^ 

1 iOper-l 

1 Name | ation | Operand 


L 


L 


.J. 


|A1 


— |. 

IMP 


|20(10,8) ,10(6,13) 


!A2 


|DP 


|10(LEN10,R8) ,DISPL0(SIX,12) 


|A3 


1 AP 


|D4(9,REG11) ,0(,10) 


|AU 


|SP 


1 FIVE (LFOUR, RBASE) , ZERO ( , R311) 


|B1 


|CP 


|RESULT(2) ,PF00R(1) 


|B2 


\mo 


|FIELD2(LEN3),FIELD1 


|B3 


|PACK 


\ PFIELD, ZFIELD (L' PFIELD+1) 


|B4 


lUNPK 


|ZFIELD,PFIELD 


|C1 


|YAP 


|RESFIELD,=P'0' 



second operand of instructions A3, A4, B2, 
and B4. Instruction CI cDntains a Literal. 

^^_Log;ical_Format 

Explicit and implicit addressing may ba 
combined with explicit and implicit length 
in the first operand just as in the SS 



la J. i. Oi. mat . 






explicit or implicit addressing or a liter- 
al may be used. 



i Name j Operation 


1 Operand 


r 1 


T ----- -- - 


1 Al 1 MVN 


|2(20,9) ,22(9) 


|A2 |MVZ 


|DISPL+19(,R9),DrSPL+18(R9) 


|B1 |TR 


iFIELDdOXfTRATABLE 


|B2 |CLC 


|FIELD+1(L'FIELD-1) , FIELD 


|B3 |ED 


|PArrFLD,RESFLD 


|C1 |MVC 


|PRINTAR,=C' RESULT' 



Instructions Al and A2 show explicit 
addressing, instructions Bl, B2, and B3 
show implicit addressing. Explicit length 
is shown in instructions Al, Bl, and B2 and 
implicit length in instructions A2, B3, and 
CI. Instruction CI uses a literal. 

Types and Functions of Machine 
Operations 

There are five types of operations: 

1. Binary arithmetic operations. 

2. Decimal arithmetic operations. 
3- Loaical ooerations. 

4. Branch operations. 

5. I/O operations. 

These operations differ not only in 
their internal logic but also in the format 
of data, use of registers, and for^iat of 
instructions. The first four operations 
are discussed in the subsequent sections. 

Some operations set a condition code in 
bits two and three of the Program Status 
Word (PSi^) . This condition code indicates 
the relationship (less than/greater than, 
zero, negative, positive etc.) between the 
two operands as a result of the last opera- 
tion effecting the condition code setting. 
For details about the PSW see the SRL pub- 
lication IBM_Sxstem/36 0_Model_2D_Functional 
Characteristics, Form 3A25-5847. 



All A-instructions use explicit addres- 
sing and all B-instructions use implicit 
addressing. Explicit length is shown in 
the second operand of instructions A.1, A2, 
Bl, and B3; implicit length is shown in the 



BINARY ARITHMETIC OPERATIONS 

Binary arithmetic is used for operands like 
addresses, indexes, counters, and binary 
data. The length of each operand is one 



halfword inclading the sign. Negative aum- 
bers are given in the two' s-complement 
form. The first operand must be in one of 
the general registers. The other operand 
may be either in a register or in main 
storage. For detailed information refer to 
the SRL publication IBM Sy5tem/360 Model 20 
EliS2jti2&^i._^^§:£§.£t§£i§ti.£§' Form 31126-5847. 



Binary numbers have a fixed length of one 
half word (16 bits). The first (leftmost) 
bit contains the sign, the other 15 bits 
the binary value. Binary numbers may be 
stored in one of the general registers or 
in main storage. In main storage, the 
address of the left byte must be even. 

Binary halfword 

r T 1 

I Sign| Binary Value | 

L ._X J 

1 15 

Representation of ^Binary Numbers 

Binary numbers are represented as signed 
integers. Positive numbers are represented 
in true form with a 0-bit as sign. Nega- 
tive numbers are in the twos-complement 
form with a 1-bit as sign. The twos- 
complement form is found by reversing each 
bit (0 to 1 and 1 to 0) and adding a 1 to 
the rightmost bit. 

A zero is always positive by definition. 
The absolute value of the lowest possible 
negative number is higher by 1 than the 
highest possible positive number. 



RR-Format 

r T T 1 

I Op-code |Ri IRa I 

L X JL J 

8 12 

Ri indicates a general register contain- 
ing the first binary number and Rg a gener- 
al register containing the second binary 
number. R^ and Ra may refer to the same 
register. The result of an instruction in 
the RR-Format replaces the first operand. 

RX^Fgrmat 

r T T T T 1 

j Op-code |Ri |X2=01B2 I Da | 
L J. JL L i, J 

8 12 16 20 31 

Ri indicates a general register contain- 
ing the first binary number. The address 
of the second binary number is formed by 
adding the contents of the register named 
in the Bg-field to the displacement given 
in the Da-field. 

Condi tion_Code_After_Binary_Oper at ions 



r T T T T 1 

I condition code | 00 | 01 | 10 |11| 

|A.R-Add Register j zero | <zero| >zero| - 
I SR-Subtract Reg. jzero | <zero| >zero| - 
I CH-Comp. Halfword* | equal | low | highj- 
l^H-Add Halfword jzero j X'zeroj >zeroj - 
JSH-Subtract Halfw. jzero j <zeroi >zeroj - 

L X X X X J 

♦first operand compared to second. 

?^11 other binary operations leave the con- 
dition code unchanged. 



Highest possible positive number: 



BINARY ARITHMETIC ERROR COMDITIOtJS 



r— ' T 1 

1 01111111 1 11111111 i=2i5-l= + 32767 
L X J 

15 

Lowest possible negative number: 



r T 1 

I lOOOOOOOJ 00000000 I =-(2^5) =-3276 8 

L X J 
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MACHINE FORMATS OF INSTRUCTIONS FOR BINARY 
OPERATIONS 

Instructions for binary operations use the 
RR- or RX- For mat. 



Error conditions that may occur during the 
execution of binary operations are: 

1. Operation code invalid 

2. Addressing error 

a. An instruction address or an 
operand address refers to the pro- 
tected first 144 bytes of main 
storage (addresses to 143) . 

b. An instruction address or an 
operand address is outside avail- 
able main storage. 

c. The last (highest) main-storage 
position contains any part of an 
instruction that is to be executed. 

d. The Ri or Ra fields of a binary 
instruction contain binary values 
through 7. 



Machine Instructions 23 



Specification error 



b. 



c. 



address is one, i.e., no half word 

uDundary. 

Ttie half-word second operand is not 

located on a halfword boundary. 

Bits 12 through 15 of an RX format 

instruction are not all zero. 



U. Binary overflow check 



Op- code 



lA. 



After execution, register 8 contains 
hexadecimal 0655. The conditioa code is 
10. 



CD __ crinTDAr'T' dc^tcticd 



INSTROCTIONS FOR BINARY ARirHMEriC 



Name 



'T T 1 

I Op-code I Format | 



Add Re^^ister (AR) 
Subtract Register (SR) 
Store Halfword (STH) 
Load Halfword (LH) 
Compare Halfword (CH) 
Add Halfword (AH) 
Subtract Halfword (SH) 



1 1 a 


RR 1 


1 IB 


RR 1 


1 40 


RX 1 


1 HB 


RX 1 


1 49 


RX 1 


1 HA 


RX 1 


1 4B 


RX 1 



AR — ADD REGISTER 

r ' T T 1 

I Name | Operation (Operand | 

j. + + ^ 

I blank or|AR |Ri#R2 I 

I symbol j j j 

L i J. J 

Function: The content of the first operand 
field is added to the content of the second 
operand field. The result is stored in the 
register specified by the first operand. 
The second operand remains unchanged. 

The sign is determined by the rules of 
algebra. A zero result is always positive. 
If the result is higher than 2^s«i (=32767) 
or lower than -2^= (=-32768), a binary 
overflow check occurs. 

Condit i on_Code : 

00 Result = zero 

01 Result < zero 
10 Result > zero 

Exam pl e; Assume register 8 contains hexa- 
decimal 0123 and register 9 contains hexa- 
decimal 0532.. 

Source statement: 

AR 8,9 

From this source statement the Assembler 
creates the following object code: 



r T T 1 

I Name | Operation | Operand | 

j. 1 f ^ 

[blank or|SR I Ri » R2 I 

I symbol j j | 

L . X i. J 

Function: The content of the second 
operand field is subtracted froTi the con- 
tent of the first operand field. The 
result will be in the register specified by 
Ri. Both operands and the result consist 
of 15 numeric bits plus the sign. The 
second operand remains unchanged. 

The subtraction is performed by adding 
the twos- complement of the second operand 
to the first operand. All 16 bits of both 
operands are added. If the result is high- 
er than 2^5_i (=32767) or lower than -2^^ 
(=-32768), a binary overflow check occurs. 

A register may be cleared to zero by 
subtraction from itself. 

There is no two' s-complement for the 
highest negative number. This number 
remains unchanged when a complementation is 
performed. Nonetheless, the subtraction is 
still executed correctly. 



v,vyii>^ 



ition Code: 



00 Result = zero 

01 Result < zero 
10 Result > zero 



Example: Assume register 8 contains hexa- 
decimal 0U7F and register 13 contains hexa- 
decimal 00D7. 

Source statement: 

SR 8,13 

From this source statement the \sse-abler 
generates the following object code: 



|0p-code|Ri!R2| 
f +— I— ^ 

i IB 18 jD i 

L i X J 
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After execution register 8 contains 
hexadecimal 03A.8. The condition code is 
10. 



operand is lFt| (decimal 500), aad the field 
starting at storage location hexadecimal 
226 (decimal 550) contains BOAF. 



STH — STORE HALF^fORD 

P ,. T- T 

I Name } Operation) Operand 1 

^ ^ . f ^ 

I blank or j STH |Ri. 02(0,62) I 

I symbol j j j 

L_, X i^ J 

Function; The content of the register spe- 
cified'by Rj. is stored in the halfword at 
the main-storage location addressed by B2 
and D2» The first operand remains 
unchanged. 

Condition Code: No change. 

Example ; Assume register 9 contains hexa- 
decimal 68AF, register 11 contains hexade- 
cimal OOIE, and the displacement in the 
second operand is hexadecimal 29E (decimal 
670). 

Source statement: 

STH 9,670(0,11) 

From this source statement the Assembler 
generates the following object code: 

r T T T T 1 

10p-code|Ri|X2=0|B2|D2 I 
|. 1->4 -4--I ^ 

I 40 |9 I |B |29E| 

L : X. IL J. X___J 

After execution the field starting at 
storage location hexadecimal 2BC (decimal 
700) contains 68AF. 



LH — LOAD HALFiJORD 

r r T 1 

I Name | Operation] Operand J 

j. + 1 ^ 

I blank orJLH |Ri, 02(0,32) j 

j symbol | | | 

L X X J 

Function: The half word at the main storage 
location addressed by B2 and D2 is placed 
into the register specified by Ra.- The 
second operand remains unchanged.. 

Condition Code; No change. 

Examgle; Assume register 9 contains hexa- 
decimal AAAA, register 12 contains hexade- 
cimal 0032, the displacement in the second 



Source statement: 

LH 9,500(0,12) 

From this source statement the Assembler 
generates the following object code: 



r r — T r — r 1 

|Op-code|RiiX2=0|B2iD2 | 
J. _|-_| 4_-| ^ 

I 48 |9 I |C |1F4| 
L __x X X X- — a 

After execution register 9 contains 
hexadecimal 80 AF. 



CH — COMPARE HALF^ORD 

r T T ^ 1 

I Name | Operation] Operand | 

^ 4 ^ , 

I blank orjCH |Rif32(0,62) | 

I symbol j j j 

L X X J 

Function: The content of the register spe- 
cified by Ri is compared with the halfword 
at the main storage location addressed by 
B2 and D2. The comparison is algebraic, 
i.e. the signs must be taken into consi- 
deration. Both operands remain unchanged. 
A condition code is set. 

Condi tion_COde : 

00 First operand = second operand 

01 First operand < second operand 
10 First operand > second operand 

Example: Assume register 9 contains hexa- 
decimal 0001, the displacement in the 
second operand is hexadecimal 690 (decixial 
1680) , register 13 contains hexadecimal 
0025, and the halfword at storage location 
hexadecimal 6B5 is AF99. 

Source statement: 

CH 9,1680(0,13) 

From this source statement the Assembler 
generates the following object code: 

r T T T T 1 

1 Op-code I Ri 1X2=0 I B2 I Da I 
j. +__+ ^.__+ ^ 

I 49 |9 I \D \ 690] 

L X X X X J 

After comparison the resulting condition 
code setting will be: 10. 
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AH -- ADD HAJ.FWORD 



Condition Co3a: 



r r X I 

I Name | Operation] Operand | 

jr 4 4 1 

jblank or|AH | Rj., 03(0, 63) I 

j symbol | | | 

L X X J 



Function; The halfword in main storage, 
addressed by Bg and Dg* is added to the 

^.^^4.^^4- ^v-e 4.V>os i-^^-i c:.4-»-v- o..->ryr^-; -P-i f^^ Kri O 

The sign is determined by the rules of 
algebra- A zero result is positive by 
definition* 

If the result is higher than 2^5-1 
(=32767) or lo^er than -2^5 (=-32768), a 
binary overflow check will occur. 

Condition Code; 

00 Result = zero 

01 Result < zero 
10 Result > zero 



00 Result — zero 

01 Result < zero 
10 Rssult > zaro 

Example: A.ssume register 9 contairio hexa- 
decimal 047F, register 11 contains hexade- 
cimal 0050, the displacement in the second 
operand is hexadecimal 320 (decimal 800), 
and the field starting at storage location 
hexadecimal 370 (decimal 880) contains 

Source statement: 

SH 9,800(0,11) 

From this source statement the Assembler 
generates the following object code: 



|Op-code|Ri|X2=0|B2|D2 I 
^ 4._| 1-_| ^ 

I 43 |9 I |B |320| 
L X X X; X 1 



Examgle: Assume register 9 contains hexa- 
decimal 0U7F» register 11 contains hexade- 
cimal 0028, the displacement in the second 
operand is lEA (decimal 490), and the field 
at storage location hexadecimal 212 (530) 
contains hexadecimal 1F29. 

Source statement: 

AH 9,490(0,11) 

From this source statement the Assstibler 

venerates the following object- code; 



r T--T T T 1 

I Op-code I Ri 1X2=0 I Baj Da | 

I. 4-4 4-4— ^ 

I 4A |9 I |B UEA| 
L X X X X J 

After execution register 9 contains 
hexadecimal 23A8 and the condition code is 
10. 



SH -* SUBTRACT HALFWORD 



After execution register 9 contains hexade- 
cimal 03A8 and the condition code is 10. 



DECIMAL ARITHVIEIIC OPERATIONS 

Decimal arithmetic can be performed onl/ 
with data in packed format. Packed fortiat 
means that there are two 3igit3 in one byte 
except for the lorf order byte. It contains 
one digit and the sign. 

Data is transferred to and from the 
external I/O devices in zoned format. 
Thus, the data has to be packed and 
unpacked before and after processing respe- 
ctively. In zoned format, each b/te con- 
tains a zone in the left halfbyte and a 

j.gj.u xn (_nc j.j.gii(. iiciii.uyuc: cXociJu «_iic J.33U 

one which contains the sign and a digit. 

The address in an instruction al>^ays 
specifies the left-most byte of the data 
field. The length field in an assembled 
instruction indicates how many bytes are 
part of the data field in addition to the 
addressed (left) byte. 



r r T J 

I Name | Operation | Operand | 

^ 4 4 ^ 

jblank orjSH |Ri, 03(0,33) I 

I symbol | | | 

t x_^ X J 

Function: This instruction is identical to 
the Add Halfword instruction with the fol- 
lowing exception: The two's complement of 
the second operand, addressed by 82 and D2, 



Decimal operations are performed in nain 
storage. The data fields may have a length 
from 1-16 bytes. A field may start at any 
address including an odd one. En zoned 
format there may be a naximum of 16 digits, 
in packed format a maximum of 31 digits 
plus the sign in a field. The two operands 
may be of different length. Multiplicand 
and divisor are restricted to a maxiiiam of 

1'^ r^-irrit-c: nine; <-ho Qnrrn. 
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The values in the operand fields are 
assumed to be right aligned, i^ith leading 
zeros where reqaired. The operands are 
processed as integers from right to left. 
If a result extends beyond the field indi- 
cated by the address and the length field, 
the extending (high order) part is ignored 
and the condition code is set to 11. 

ExE£SS2ntation_of _Numbers 

Decimal numbers consist of binary coded 
digits and a sign. The decimal digits 0-9 
are represented in the four bit code by the 
bit combinations 0000-1001. 

The combinations 1010-1111 are reserved 
for representations of a sign (+,-). 1011 
and 1101 represent a minus, the other four 
combinations a plas. The representations 
1100, 1101, 1010, and 1011 are created dur- 
ing calculations in main storage. 

Negative nambers are represented in true 
form. 

The two decimal formats are: 

Packed decimal number (e.g. five digits) 

r T T 1 

I Byte 1 Byte | Byte | 

i i ! I i I I 
I Digit I Digit] Digit | Digit j Digit | Sign | 

L 1 ± X ±. JL J 

Zoned decimal number (e.g. three digits) 

r T r 1 

I Byte I Byte ] Byte | 

I I I I i I I 
I Zone I Digit I Zone j Digit] Sign | Digit) 
L J. X X X X J 

^^ithmetic 

Decimal operations have the 33 fornat: 



OP-code 


Ll 


L2 


Bl 


Dl 


B2 


D2 



12 16 20 



32 36 
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In the source instruction statement yoa 
specify the effective length of the data 
field. The Assembler inserts a valae one 
less than the effective length into the 
length field of the assembled instraction. 

The instruction fields Bg , Dg, and Lg 
give the respective information for the 
second data field. 

The result of a decimal operation 
replaces the content of the first data 
field. It cannot occupy more storage area 
than indicated in the Li. field. The second 
data field remains unchanged. Exception: 
overlapping fields. 

The general registers are not affected 
by decimal operations. 



CONDITION CODE AFTER DECiyiAL OPERATION'S 

The decimal operations listed in the table 
below set a condition code. 

r T T T T 1 

I I 00 I 01 I 10 I 11 1 
^ 1 1 ^ ^ _ ^ 

I ZAP I zero I < zero] > zero] - | 
ICP* I equal I low I high! - \ 
I AP ! zero i < zero! > zeroj overflow j 
|SP I zero I < zeroj > zeroj overflow j 
L X X X L J 

♦First operand compared to second. 

All other decimal operations leave the 
condition code unchanged. 



DECiyiAL ARITHMETIC ERROR :ONDirrONS 

The following error conditions nay occur 
during the execution of decimal arithtietic 
operations : 

1. Operation code invalid. 

2. Addressing error 

a. An instruction address or an 

operand address refers to the pco- 
tected first l'4tt bytes of main 
storage. 

0. An instruction address Dr an 

operand address is outside avail- 
able storage. 

c. An instruction occupies the last 
two (highest) main-storage 
oositions. 



The fields B^ and Dj. give the main- 
storage address of the left byte of the 
first data field; L^ gives the number of 
bytes in addition to the leftmost byte. Lj. 
may vary between zero and 25 inclusively. 



3. Specification error 

a. The low-order bit of an instruction 
address is one, i.e., no halfword 
ooundary. 
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For Zero and ft.dd, Compare Decimal, 
hidi Decimal, and Subtract Deciiial 
instructions the len'^th code L- is 
greater than the length code L^. 
For MuxLipx/ DeciTiaj. ana Di'viae 
Decimal instructions, the length 
code L2 is greater than 7 or great- 
er than or equal to the length code 
L-, . 



Data error 



not have equal lengths. Leading zeros are 
inserted if the first field is longer thaa 
the second* If the second field is longer 
than the first, the high-order digits of 



L,iic o c; ^ -» u - 



L i s i a a I. 



rhe move proceeds from right to left one 
b/te at a time. The second field na/ over- 
lap the first excluding the rightmost b/te 
of the first field. 



in the Zero and ?^dd, Compare Decim- 
al, A.dd Decimal, Subtract Decimal, 
Maltipl/ Decimal, or Divide Decimal 
instruction is incorrect, 
rhe operand fields in these 
instructions overlap incorrectly, 
rhe first operand in a yiultiply 
Decim.al instruction has insuffi- 
ni ent hiah-order 7.^^03- 



Examole: Assume register 12 contains hexa- 
decimal 0250, register 15 contains aexade- 
cimal 040F, the displacement giv^en in both 
operands is zero, storage location hexade- 
cimal 040F-0412 contains hexadecimal 
123456, and storage location hexadecimal 
0250-0253 contains hexadecimal 778R990C, 



Decimal divide check 
The resultant quotient in a Divide 
Decimal instruction exceeds the speci- 
fied data field instruction (including 
division by zero) or the dividend has 
no leading zero. 

CPU parity error. 



INSTRUCriDNS FOR DECIMAL ARirHMEn: 



Source statement: 

MVO 0(4,12) ,0(3,15) 

From this source statement the ^^sseiibler 
produces the following object code: 

r T T T 1 T T 1 

pp-COdelLj.|L2|B,.|Di I32ID2 I 

I- +—+—+— I— 4-+— ^ 

I Fl 13 |2 |C lOOOlF |300 I 

L J.__l__l__l J i J 



r 

i 


jDp- 


1 




1 Name 


1 cods 




Format 


^ _„__.„_._ 


f 


t 




i?4ove with Offset (M</0) 


i Fl 




ss 


|Pack (PACK) 


1 F2 




33 


1 Unpack (QNPK) 


1 F3 




SS 


1 Zero and Add Packed (ZAP) 


! F8 




33 


1 Compare Decimal Packed (CP) 


1 F9 




SS 


1 Add Decinal Packed (AP) 


I Fh 




SS 


j Subtract Decimal Packed (3P/ 


1 FB 




3 3 


[Multiply Decimal Packed (MP) 


1 FC 
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[Divide Decimal Packed (DP) 


1 FD 




SS 



L J X J 



MVO -- MOVE WITH OFFSET 

r r T 1 

I Name | Operation! Operand | 

|. f 1 ^ 

[blank orlMVO | Di (Lj., Bi.) ,D2 (La^Ba) | 
I symbol | | | 

L J. L J 

Function: The contents of the second data 
field are moved to the location specified 
by the first operand. The iiove is executed 
with an offset of half a byte (one digit) 
to the left. The right halfbyte of the 
first data field remains unchanged. There 



After execution the field at location 
hexadecimal 0250-0253 contains hexadecimal 
0123456C. 



PACK — PACK 

r T T 1 

I Name | Operation] Operand ] 

I I I I 

r r r 1 

[blank orjPACK [ Dj. (Li, Bi ) , D2 (L2, Bg ) | 
I symbol | | j 

L X J j 

Function: The unpacked content of the 
second data field is packed and placed into 
the first data field. The second data 
field must contain an unpacked decimal 
number. It may have a maximum size of 16 
bytes. There is no check for validity of 
digits and sign. 

The lengths of the fields need not be 
equal. Leading zeros are inserted if the 
first field is too long for the resalt. 
The high-order digits of the second field 
are ignored if the first field is too short 
for the result. The fields are processed 
from right to left one byte at a time. 
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Example: ?^ssume register 11 contains hexa- 
decimal 044?^, register 9 contains hexade- 
cimal 02C0, the displacement in the first 
operand is hexadecimal 244, in the second 
operand it is hexadecimal 180, and that 
storage location hexadecimal 0440-0444 con- 
tains hexadecimal F1F2F3F4C5. 

Source statement: 

PACK 580(4, 11), 384(5, 9) 

From this source statement the Assembler 
produces the folloi«?ing object code: 



Source statement: 

UNPK 4020(5,10) ,100(4,10) 

From this source statement the Assembler 
produces the following object code: 



r T--T--T--T T T 1 

I Op-code 1 Li I La I Bi I Da. | B2 I Dz I 

f +— +--l~f — -h— f— H 

1 F2 13 14 IB 1244|9 IISOJ 
L J.__X__X--i. X__J. J 

After execution the field at storage loca- 
tion hexadecimal 068E contains 00123452. 



[JNPK -- [JNIPACK 

r r T 1 

I Mame j Operationl Operand 1 

j. + 1 ^ 

Iblank orlUtJPK I Dj. (Lj., Bi.) , D2 (L2, B2 ) 1 
! symbol 1 | j 

L L i J 

Function: The packed contents of the 
second data field are changed to zoned for- 
mat and stored in the first data field. 
The second data field must contain a packed 
decimal namber. Sign and digits are not 
checked for validity. 

After processing, the zoned decimal 
number in the first data contains the sign 
(high-order four bits) and one digit in the 
rightmost byte. Each of the other bytes 
contains a zone and a digit. 

The fields are processed from right to 
left. If the first operand field is too 
long it is filled vith leading zerDS. If 
the first operand field is too short to 
contain all the digits of the second 
operand, the leading digits are ignored. 
The operands may overlap but you must exer- 
cise caution. 



Condition_Code: fJo change. 



r 1 r — r — 1 1 t 1 

|0p-code|LilL2lBi.|Di. IB2ID2I 

I- +— +— I— f— I— 1_-^ 

1 F3 14 13 I A 1FB41 A 1551 
L J L L L J J J 

After execution location hexade::;imal 1F54- 
1F58 contains F2F3F4F5D6. 



ZAP — ZERO AND ADD PACKED 

r T T 1 

1 Mame | Ooerationl Ooerand | 

^ 1_1 ^_1 ^ 

Iblank or|ZAP 1 Di (Li, Bj.) , D2 (L2, Bg) | 
I symbol j j | 

L X X J 

Function: rha first data field is zeroed 
oat and the contents of the second data 
field are placed into the first data field. 
This operation is equivalent to an addition 
into a zero-field. The second field must 
be in packed format. 

A zero result is positive b/ definition. 
The second field ma/ be shorter than the 
first field. If the second field is long- 
er, then a machine stop occurs and the 
instruction is not executed. 

Processing proceeds from right tD left. 
All digits and the sign of the second field 
are checked for validity. Higi order zeros 
are supplied if needed. The fields may 
overlap if the rightmost byte of the first 
operand is coincident iijith, or to the right 
of, the rightmost byte of the second 
operand. 

Condi tion_Code : 

00 Result = zero 

01 Result < zero 
10 Result > zero 

Example: Assume register 10 contains hexa- 
decimal 01F4, tne displacement in tne first 
operand is hexadecimal 294, that in the 
second operand is hexadecimal 37A, and 
storage location hexadecimal 056E-0570 con- 
tains 01234D. 



Example: Assume register 10 contains hexa- 
decimal OFAO, the displacement in the first 
operand is hexadecimal FB4, that in the 
second operand is hexadecimal 65, and loca- 
tion hexadecimal 1004-1007 contains hexade- 
cimal 0123456D. 



Source statement: 

ZAP 660(4,10) ,890(3,10) 

From this source statement the Assembler 
produces the folloi«?ing object code: 
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1 1 1 1 T "! T 1 

|0p-code|LiiL2|Ba.iDi i 63 | Da [ 
L i — 4. — I — 4 4 — 4 J 

I F8 |3 1*2 |\ \29^\h i37;^i 
I J i i.__j.^__j.„^i_ = _j 

After execution location 0487-0480l contains 
0001234D. 



From this source state.xient the ?^sseTibLer 
produces the folloiving object code: 



j. 4__4__4__4__-4__4.__^ 

I F9 12 |1 |C |640|B |3E8 | 

L J J L i. JL X. J 



Softer comparison the condition code is L3. 



CP -- cOMPapp nPTTvtar. par-ffRD 



RP — hOO DE2IMB.L PACKED 



r T T 1 

I Mans I Operation! Opsrana | 

y 4 4 ^ 

Iblank orjCP | D^ (Li, Bj.) , D2 (Lg, 63) | 
I symbol | | j 

L 1 i J 



Function: The contents of the first data 
field are compares to the contents of the 
second data field and the result is indi- 
cated by a new condition code. 

rhe comparison proceeds from right to 
left and is algebraic, i.e. the sign and 
all digits are compared one byte at a time. 
(Negative values are smaller than positive 
values) . 



r r T 1 

jNlame 1 3peration| Operand | 

j. 4 4 ^ 

I blank or|AP j D^ (Li , Bj. ) , D2 (i^2» Ba) 1 

IsyTibol I I 1 

L J. J J 

Function: The contents of the secoil data 
field are added to the contents of the 
first data field. The result replaces the 
content of ths first fiell. 

The sign is dsterminsd by the rulss of 
algebra. A zero result is positive by 
definition. Exception: It is possible 
that a remaining zero result after an over- 
flow has a negative sign. A condition code 
is set. 



h negative zero is equal to a positive 
zero. The sign and all digits are checked 
for validity. A halt occurs if the second 
field is longer than the first field and 
the instruction is not executed. If the 
second field is shorter it is extended with 
leading zeros. 

rhe contents of both fields do not 
change. An overflow cannot occur. rhe two 
fields may overlap if the rightmost bytes 
coincide. Therefore, it is possible to 
compare a number to itself. 

Note the difference between "Conpare 
Decimal Packed" and "Compare Logical Chara- 
cters" (CLC). 

^2[id i t i D n _C o de : 

00 First operand = second operand 

01 First operand < second operand 
10 First operand > second operand 

Examgle: Assume register 12 contains hexa- 
decimal 0040, register 11 contains hexade- 
cimal 02F0, the displacement in the first 
operand is hexadecimal 640, that in the 
second operand is hexadecimal 3E8, location 
hexadecimal 0680-0682 contains OlOOOC, and 
location 06D8-06D9 contains 999C. 

Source statement: 

CP 1600 (3,12) -1000(2-11) 



If the second fisll is longer than the 
first a program error halt occurs and the 
instruction is not executed. If the second 
field is shorter than the first it is 
expanded with leading zeros and addition 
will taka place nori:iallY. Signs and digits 
are checked for validity. Addition pro- 
ceeds from right to left. The result is in 
packed format. 

The two fields may overlap if the right- 
most bytes coincide. Thus, it is possible 
to double a number. 

Condi tion_Code : 

00 Result = zero 

01 Result < zero 

10 Result > zero 

11 Overflow 

Example: Assume register 8 contains hexa- 
decimal 0014, storage location D329 (hexa- 
decimal) contains 002220, storage location 
500 (hexadecimal) contains C1003C, the dis- 
placement in the first operand is 315 
(hexadecimal) , and that in the second 
operand is 4EC (hexadecimal) . 

Source statement: 



AP 



789(3,8) ,1260(3,8) 



From tills source staterient the Asseubler 
produces the followina obiect code: 
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f"- r — T — T — T T — r 1 

10p-coae|Li|L2|Bi|Di IB2ID2 I 

k f— I— -I— f — f-f — ^ 

I FA |2 12 |8 |315|8 14EC| 

L i i. J. J. 1 !L J 

After execution storage location 0329-032B 
(hexadecimal) contains 00778C. 



From this source statement the Assembler 
produces the following object code: 

r r — T — T — T T — T 1 

|0p-COde|Li|L2|BiiDi IB2ID2 I 

f ^.— f_-^._-f — ^— f — ^ 

I FB |1 |1 |9 |7D0|8 |BB8| 
I X J. X 1 X 1 J 



SP — SaBTRACr DECIJIAL PACKED 



After execution storage locatioa 0898 
(hexadecimal) contains OOlVO. The condition 
code is 10. 



r r* T 1 

I Name | Operation | Operand | 

i. + + ^ 

(blank or|SP | Di.(Li, Bj.) D2 (L2, B2) | 
I symbol j | | 

L . L X J 



Function: The contents of the second field 
are subtracted from the contents of the 
first data field. The result is placed 
into the first field. The sign is deter- 
mined by the rules of algebra. \ zero 
result is positive by definition- Excep- 
tion: A zero result remaining in case of 
an overflow may have a minus sign. 

If the second field is longer than the 
first a program error halt occurs and the 
instruction is not executed. If the second 
field is shorter, it is expanded with lead- 
ing zeros a:nd subtraction will take place 
normally. 

All digits and the signs are checked for 
validity. The operation proceeds from 
right to left by reversing the sign of the 
second number and then adding the second 
number to the first. The result is in 
packed format. 

The fields may overlap if the rightmost 
bytes coincide- Thus it is possible to 
clear a field to zero. 

225^i i^i o n_2 o d e : 

00 Result = zero 

01 Result < zero 

10 Result > zero 

11 Overflow 

Example: Assume register 9 contains (hexa- 
decimal) 00C8, register 8 contains (hexade- 
cimal) 012c, storage location 898 (hexade- 
cimal) contains 012C, storage location 0CE4 
(hexadecimal) contains 0082, the displace- 
ment in the first field is 7D0 (hexadecim- 
al), and that in the second field is BB8 
(hexadecimal) , 

Source statement: 

SP 2000(2, 9), 3000(2, 8) 



MP — MaLTIPLy DECIMAL PACKED 

r T T 1 

IName |Operation|Operand | 

^ ^ f ^ 

Iblank or|MP I Dt tCif Bi ), Da (La, B2 ) | 
I symbol I I I 

L X X J 

Function: The multiplicand in the first 
data field is multiplied by the multiplier 
in the second data field. The product is 
placed into the first field. Thie second 
field may have a maximum of 15 digits 
(L2=7) plus the sign and must be shorter 
than the first operand. If L2 > 7 or L2 ^ 
Li a program error halt occurs and the 
instruction is not executed. 

The length of the product is equal to 
the sum of the lengths of multiplier an3 
multiplicand (L of product = La.+ L2)« 
Therefore, the multiplicand must be 
expanded with leading zeros by the number 
of bytes of the multiplier. Otherwise a 
halt occurs. An overflow is not possible. 
The product may have a maximum length of 30 
digits plus ttie sign. It contains at least 
one leading zsro. 

The factors and the result are consi- 
dered to be signed integers. The sign is 
determined by tbe rules of algebra* The 
fields may overlap if their rightmost bytes 
coincide. Thus, it is possible to square a 
number. 



^ote: You can save computing time by using 
the larger of ttie two factors as tbe second 
operand. 



Condition_Cods: No change. 



Example: 

1. Multiplicand x multiplier = product 

MAND K MOR = PROD 

2. Length MAND + length MOR = length PROD 
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The MA.ND niist be right-aligaed an3 liave 
leading zeros before the multiplication 
is eKaciitei. 



r T T 

I Name | Operation | Operand 
^ 1. ^ 

i i • i 



MP 



MOR I 03 

MAND I OS 
PROD I 03 



I 

j PROD,M?iND 
! PROD. MOR 



I 

I CL3 

1 CL2 

I CL5 



Assume the Assembler has allocated 
storage location (hexadecimal) ic:92 to sta- 
tement MOR, . Then, MAND has location 1C95 
and PROD has location 1C97. Further assume 
that the storage locations implicitl/^ 
addressed by MOR and MASD contain 37219D 
and 425C respectively and register 12 con- 
tains (hexadecimal) 1191. (The Assembler 
automatically calculates the displacement 
shown in the object coding by subtracting 
the contents of register 12 from the loca- 
tion counter value of the s/mbolic 
address) . 



Source statement: 



ZAP 



PROD,MAND 



Assembler produced object code; 



r 1 T T T T — T 1 

|0p-code|Li|L2|Bi|Di iBalDg | 
j. 4..4_>4..4___4__4 ^ 

I F8 |4 |1 \2 |B03|C |B01| 



and 
MP 



PROD, MOR 



iOp-codeiLiiLalBilDj. iBziDz j 

V +-+-+-+ +-+— -I 

j PC j4 |2 |C I BOB I C lAFEJ 
L JL X X — X ± — X J 



Ttie results of the two instruc 
shown in Fiaure 5. 



MOR 
MAND 



3 7 2 r 9 D 



425C 



n. 



PROD jo 1 5 8 1 8 7 5 Dj 






PROD {0 00000425 C{ -J 2 

Note: Maximuffl length of product it 16 bytoi. 
maximum length of mCR is 8 byfec. 



Figure 5. Decimal Multiplication 



DP -- DIVIDE DECIMAL PACKED 

r T T 1 

|Name |Operation| Operand | 

l- 1 4 ^ 

lblanlcor|DP | Dj. (L^., Bi) , Da (Laf 63) i 
I symbol j | j 

L X X J 

Function: The dividend in the first data 
field is divided by the divisor in the 
second data field. The quotient and the 
remainder are placed into the first data 
field. 

The quotient occupies the left part of 
the first field, i.e. the address Df the 
quotient is ttie same as the address of the 
diviaen^, vh?. ramainder occupias tlie right 
part of the first field and has a length 
equal to that of the divisor. 

The quotient and the remainder together 
occupy ttie entire dividend field (first 
operand) . This means the dividend field 
must be large enough to accomodate a divi- 
sor of maximum length and a quotient of 
maximum length. In the extreme case the 
dividend field has to be expanded with 
zeros to the left by the number of bytes of 
the divisor. 

The length of the quotient fieia (in 
bytes) is Li-La. The divisor field na/ 
have a maximum of 15 digits plus the sign 
and must be smaller than the dividend 
field. 

If La > 7 or La > Ll a halt Dccurs and 
the operation is not executed. The divi- 
dend must have at least one leadin^^ zero* 

Dividend, divisor, quotient, and 
remainder are signed integers. The sign is 
determined according to tlie rules oE alge- 
bra from the signs of dividend and divisor. 
The sign of the remainder is always ident- 
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ical to the sign of the dividend. This 
also holds true if the quotient or the 
remainder are zero. 

If the quotient contains more than 29 
digits plus the sign,, or if the dividend 
has no leading zero, then a halt occurs and 
the operation is not executed. The divisor 
and the dividend remain unchanged and there 
is no overflow. The two operands may over- 
lap if their rightmost bytes coincide. 



Condition co de; No change. 

Example: 



1. Dividend 
DEND 



Divisor = Quotient 
DOR = QUOT 



2. Length of processing field = length 
QUOT + length DOR 

maximum length of processing field 
(PROFE) = length DEND + length DOR 
(packed bytes). 

3. The dividend must be right-aligned with 
at least one leading zero before the 
division is performed. 



r T T 

I Name | Operation) Operand 

j. 4 1 



DEND 
DOR 
PROFE 1 



ZAP 
DP 



DS 
DS 
DS 



PROFE, DEND 
PROFE;, DOR 



CL4 
1CL2 
CL5 



L JL X J 

Assume the Assembler has allocated 
storage locations as follows: DEND hexade- 
cimal A09, PROFE hexadecimal F40, and DOR 
hexadecimal CAC. Register 9 contains hexa- 
decimal 0400. The Assembler automatically 
calculates the displacements for the two 
operands by subtracting the contents of 
register 9 from the respective storage 
address values. 

The source and object codings for the 
ZAP and DP are shown below. 

Source statement: 

ZAP PROFE, DEND 

Assembler produced object code: 



|0p-code|Li|L2|Bi|Di IB2ID2 J 
j. 4.__4__|__4 4__^. ^ 

1 F8 |4 |3 |9 [75819 16091 

L i. J. J. 1 J. i J 

and 

Source statement: 

DP PROFE, DOR 
Assembler produced object code: 

r T T T T T T- 1 

|0p-code|LilL2|Bi|Di IB2ID2 I 
j. +__|__|__| — +__4 — ^ 

1 FD |4 |1 |9 175819 | SAC | 

L X X X X X X J 

The results of the two instructions are 
shown in Figure 6. 



DEND I2.7I9.5I3.4I3.CI 

PROFE 10. 012. 719.513. 4I3.CI PROFE 1 1 .3M .213. Ol ^TTT^t 

DOR I2.1I3.CI 

Figure 6. Decimal Division 

LOGICAL OPERATIONS 

There are special instructions for the non- 
arithmetic processing of data. The data 
fields are processed one byte at a time. 
In some cases the left four bits and the 
right four bits of a byte are treated 
separately. 

Processing of data fields in main 
storage proceeds from left to right. A 
field may start at any address excluding 
the reserved areas. 

In logical operations the data fields 
are considered to contain alphameric data. 
An exception is the Edit- instruction which 
requires packed decimal numbers in the 
second data field. 

Data Format 

The data are either in main storage or in 
the instruction itself. They may be a 
single character or an entire field. If 
two fields are used, they must be of equal 
length. Exception: the Edit- instruction. 
The two formats for logical data are: 
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Fixed Length (one byte; storage- iminediate 



r 1 

(single | 
I chairacteir ' 
L J 

7 



ao-ronhoT 



OP-code 


L 


h 


^1 


h 


^2 



16 20 



32 36 



47 



Variable Length (1 to 256 bytes; storage to 
storage operations) 



r y ^__f j.--^ , 

j character I character | | character | 

L _ J. J —f f—± J 

8 15 



The address of the each data field is 
the sum of the con-Cents the respective B- 
and D- fields. The first and second operand 
fields must have the same lenath- 



CONDITION CODE AFTER LOGICAL OPERATIONS 



In storage— to-storage (SS) operations, 
the fields may. start at any address with 
exception oj. tue iirst x44 uytes,, wiiicii are 
reserved- The maximum length of a field is 
256 bytes. Immediate data is limited to a 
length of one byte- 
Only the EDIT operation handles data of 
packed format. The other instructions 
handle all bit combinations. 

Storage- to- storage instructions may 
address overlapping fields. The result of 
overlapping depends on the particular 
operation. Overlapping does not influence 
the operation if the contents of the field 
remain unchanged (e.g. in a comparison). 
If one or both change, however, execution 
of the operation may be influenced by the 
overlapping and by the manner in which the 
data are rounded off and stored. 



The results of the logical operations 
determine the condition code. Move- 
operations uo not set a coue. In case Oi. 
the Edit-instruction the condition code 
indicates the status of the field to be 
transferred into the mask. 

In the case of the Compare Logical Imme- 
diate the first data field is compared to 
the immediate data. In case of the Compare 
Logical Character the first data field is 
compared to the second data field. 

Table of condition codes: 



r •- T T T T 1 

I I 00 I 01 I 10 111 I 

I Test under Mask j zero j mixed | — |one| 
I And I zero jnot zero| — | — | 
I Compare Logical j egual j low i high j — j 
I Or jzero jnot zero| — | — | 
I Edit jzero j< zero |> zero| — | 
L X i i X J 



MACHINE FORMATS OF INSTRUCTIONS FOR LOGICAL 
OPERATIONS 

Logical instructions are either in the 
Sl-or the SS-forirat. 



All Other logical operations leave the con- 
dition code unchanged. 



Error Conditions 



SI-Format 



OP-code 


h 


_____ 


•^1 



16 



20 



31 



The first data field has a fixed length 
of one byte. The second operand also has a 
length of one byte but it is contained 
directly in the instruction. 

The general registers are not affected 
by an Sl-instruction. 



Error conditions which may occur during the 
execution of non-arithmetic operations are: 

1. Operation code invalid 

2. Addressing error 

a. An instruction address or an 
operand address refers to the pro- 
tected first 144 bytes of main 
storage (addresses to 143) . 

b. An instruction address or an 
operand address is outside avail- 
able storage. 

c. The last (highest) main-storage 
position contains any part of an 
instruction that is to be executed. 



3. Specification error 

The low- order bit of an instruction 
address is one, i.e., no halfword 
boiindary. 

U. Data error 

An invalid digit code is contained 
within the second operand field of an 
Edit operation. 

5. CPU parity error. 



INSTRUCTIONS FOR LOGICAL OPERATIONS 



r 

1 
iNaitie 

L _ 


|0p- 
|Code 

4. J 


r 

Format 

L _ 


r — 

JMove Immediate (MVI) 


t^ 1 

1 92 


r 

SI 


|Move Characters CMVC) 


1 D2 


ss 


jMove Numerics (MVN) 


1 Dl 


ss 


iMove Zones (MVZ) 


{ D3 


ss 


1 Compare Logical Immediate 
1 (CII) 


1 95 


SI 


1 compare Logical Character 
1 (CIO 


1 D5 


ss 


lEdit (ED) 


1 DE 


ss 


|And Immediate (NI) 


1 94 


SI 


|0r Immediate (01) 


1 96 


SI 


|Test under Mask (TM) 


1 91 


SI 


j Halt & Proceed (HPR) 


1 99 


SI 


[Translate (TR) 


1 DC 


ss 



L J. X J 



WVI — MOVE IMMEDIATE 



r T ■ T 1 

I Name j Operation [Operand | 

^ + .+ ^ 

j blank or | MVI |Da.(Bi),l2 | 

1 symbol | j | 

I J. X J 



Function: The byte from la is placed 
directly into the storage location 
addressed by Bi and D^. 



Condition Cod e; No change. 



Exampl e; Assume register 10 contains 
(hexadecimal) 082E„ storage location A22 
(hexadecimal) contiains A, the displacement 
in the first operand is 1F4, and the imme- 
diate data is the $. 

Source statement: 



MVI 



500(10), C'$' 



From this source statement the Assembler 
produces the following object code: 



r T — T — T 1 

I Op-code I la I Bi I Dl I 
y -I— -I— -I- ^ 

I 92 |5B|A |1F4| 
L X X X J 

After execution storage location A22 con- 
tains hexadecimal 5B, a $ sign. 



MVC — MOVE CHARACTERS 

r T T 1 

jName | Operation | Operand | 

|. + ^ ^ 

[blank or I MVC |Di (L,,Bi) ,D2 (Ba) | 
I symbol | | | 

L X X J 

Function ; The contents of the second data 
field are placed into the first data field. 
Processing is performed from left to right 
one byte at a time. 

The two fields may overlap. If the 
first field is to the left of the second 
field, then transfer will proceed correct- 
ly. If the first field is exactly one byte 
to the right of the second field,, then this 
byte will be propagated throughout the 
first field. 

Condition Code ; No change. 

Example ; Assume register 11 contains 
(hexadecimal) 0258, register 15 contains 
(hexadecimal) OUBO, storage location 3E8 
(hexadecimal) contains optional data,, 
storage location 07D0 (hexadecimal) con- 
tains C9C2D4, the displacement in the first 
field is 190 (hexadecimal), and that in the 
second field is 320 (hexadecimal) . 

Source statement; 

MVC 400(3, 11), 800(15) 

From this source statement the Assembler 
produces the following object code; 

r T T T T— T 1 

I Op-code I L |Bi|Di iBalDa | 

I- +--■ I— + — +--+ ^ 

1 D2 12 |B |190|F 13201 

L X X^ X X X J 

After execution storage location 03E8 con- 
tains C9C2D4. 



MVZ — MOVE ZONES 

r T T 1 

I Name | Operation | Operand | 

|. + 1 ^ 

I blank or I MVZ |Di (L.Bi) ,D2(B2) j 
I symbol j | | 

L X X J 
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Function : The high-order four bits (the 
zones) of each byte in the second data 
field are placed into the high-order four 
bits of the first data field. The low 
order four bits (the numerics) of each byte 
remain unchanged. Movement is from left to 
right one byte at a time. The digits are 
not checked for validity. The fields may 
overlap. 



Condition Co de; No change. 



Exam pl e; Assume register 10 contains 
(hexadecimal) 0890, storage location 08FU- 
08F7 (hexadecimal) contains FUF3F2C1, the 
displacement in the first operand is 67 
(hexadecimal) , and that in the second 
operand is 66 (hexadecimal). 

Source stateirent ; 



MVZ 



103(1,10), 102(10) 



From this source statement the Assembler 
produces the following object code; 



r T T T T T 1 

lOp-COde|L IB1ID3. jBalDa \ 
|. +--+—+ +— + -I 

I D3 |0 |A |064|A |066j 

L X X ± ' X J 

After execution storage location 08F4-08F7 
contains F4F3F2F1. 



jyiVN — ^30VE NUMERICS 



r T T " 1 

I Name [Operation | Operand | 

I blank or|MVN |Di (L„Bi) ^Da (Bg) | 
i symbol | | j 

L X X J 

Function; The low order four j^ "-.s (the 
numerics) of each byte in the sec nd data 
field are placed, from left to rig^. , into 
the corresponding low order four bitt: of 
the first field. The high order four bits 
(the zones) of each byte in the second 
field remain unchanged. The digits are not 
checked for validity. The fields may 
overlap. 

Condition Co de; No change. 

Example; Assume register 15 contains 
(hexadecimal) 7BA, storage location OBAU- 
08A7 (hexadecimal) contains F4F3F2C1, 
storage location 096A (hexadecimal) con- 
tains F9F8F7D6, the displacement in the 
first field is C8 (hexadecimal) , and that 
in the second field is 190 (hexadecimal) . 



Source sraremenr : 

MVN 200(4, 15), 400(15) 

From this source stateinent the Asserru^^xer 
produces the following object code; 



jOp^codeiL iBijDi IB2ID2 i 

I- +—+--+ +--+ -1 

! Dl JB |F jOCSjF !190! 
L X X X X X J 

After execution storage location 08AU-08A7 
contains F9F8F7C6. 



CLI -- COMPARE LOGICAL IMMEDIATE 

r T T 1 

j Name j Operation j Operand | 

}. + 1 ^ 

|blank or|CLI |Di(Bi),l2 | 

j symbol | | | 

L X X J 

Function; The eight-bit symbol of the 
immediate^data (the second operand) is com- 
pared to the eight bits of the first data 
field. The result sets the condition code. 
The two bytes are treated as eight-bit 
unsigned binary values. This results in 
the following order of comparison; 

Special characters, lower case letters, 
upper case letters, digits. (System/360 
collating sequence) . 

All 256 bit combinations are valid. 

Condition Code; 



00 
01 
10 



first operand = second operand 
first operand < second operand 
first operand > second operand 



Examp le; Assume register 15 contains 
(hexadecimal) 01F4, storage location 05DC 
(hexadecimal) contains E9, the displacement 
in the first operand is 03E8 (hexadecimal) , 
and the immediate data is the letter A. 

Source statement: 

CLI 1000(15), C'A' 

From this source statement the Assembler 
produces the following object code; 

1 r r r 1 

j Op-code JI2JB1 I Dl I 

|. +-+— + -I 

I 95 ICIIF |3E8| 

L . X X X J 

After execution the condition code setting 
is 10. 



-^f. 



CLC — COMPARE LOGICAL CHARACTERS 

r — ' T T n 

I Name | Operation | Operand | 

^ + +_ ^ 

I blank or I CLC | D^ (L,Bi) ,D2<B2) | 
I symbol | j | 

L X X J 

Functi o n ; The contents of the first data 
field are compared with those of the second 
data field. The fields may have a maximum 
length of 256 bytes. Comparison proceeds 
from left to right. The comparison is ter- 
minated as soon as inequality is 
encountered. 

All bytes are treated alike as eight bit 
unsigned binary values. The order of com- 
parison is the System/360 collating 
sequence: Special characters, lower case 
letters,, upper case letters, digits. All 
256 bit combinations are valid. 

Condition Code: 



00 
01 
10 



first operand = second operand 
first operand < second operand 
first operand > second operand 



Exam ple; Assume r.egister 11 contains 
(hexadecimal) 0320 storage location AF0-AF3 
(hexadecimal) contains D1D6C8D5, storage 
location 0708-070E (hexadecimal) contains 
D1D6C5E8, the displacement in the first 
operand is 7D0 (hexadecimal) , and that in 
the second operand is 3E8 (hexadecimal) . 

Source statement: 



CIC 



2000(4, 11), 1000(11) 



From this source statement the Assembler 
produces the following object code; 



r T T T T T 1 

I Op- code I L |Bi|Di IB2ID2 I 

F f--f— + — +--• 1- — -I 

I D5 |3 |E |7B0|E | 3E8 | 
L X JL J. J.^ X J 

After having compared the third character 
the condition code setting will be 10. 



ED — EDIT 

r T T 1 

I Name | Operation] Operand | 

^ 1 + ^ 

I blank or|ED |Di (L„Bi) ^Da (B2) | 
I symbol | | | 

L X X J 

Functi on: The format of the source field 
(the second data field) is changed from 
packed to zoned and is edited under control 



of the pattern (the first data field). The 
edited result replaces the pattern. The 
two fields must not overlap. 



Editing includes sign and punctuation 
control and the suppressing and protecting 
of leading zeros. It also facilitates pro- 
grammed blanking of all-zero fields. Sev- 
eral numbers may be edited in one opera- 
tion, and numeric information may be combi- 
ned with alphabetic information. 



The length field applies to the pattern. 
It may have a maximum of 256 bytes. The 
pattern has unpacked format and may contain 
any character. The source field has packed 
format and must contain valid decimal 
digit-and sign-codes. Its left half -byte 
must always contain one of the digits 0-9. 
The right half-byte may be a digit or a 
sign. 

Both fields are processed left to right 
one character at a time. Overlapping 
pattern-and source-fields give unpredict- 
able results. 

A so-called S-trigger controls the Edit- 
operation. Depending on various conditions 
during the operation the trigger is set 
either to ON or OFF. This setting deter- 
mines whether a source digit or a fill 
character is inserted into the result 
field. 

As mentioned before, the pattern may 
contain any unpacked character. However, 
three bit-combinations have special 
significance: 

0010 0000 (hexadecimal 20) = digit-select 
character 

0010 0010 (hexadecimal 22) = field- 
separator character 

0010 0001 (hexadecimal 21) = significance- 
start character. 

The digit-select character indicates a 
position in the result field into which the 
corresponding digit of the source field or 
a fill character is to be inserted. 

The field-separator character is used if 
several source fields are to be inserted 
into one pattern. By setting the S-trigger 
to OFF it causes every source field to be 
treated separately. The field-separator 
character is always replaced by the fill 
character. 

The significance-start character sets 
the S-trigger to ON. Now every character 
in the pattern is replaced by the respec- 
tive digit of the source field or the fill 
character. 



Machine Instructions 37 



The S-trigger is set to OFF (0) : 



1. At the beginning of an Edit-operation. 

2. By the field-separator character in the 
pattern, 

3. By a positive sign (1010, 1100,, 1110, 
1111). 



The S-trigger is set to ON (1) : 

1. By a valid digit (1-9) of the source 
field. 

2. By the significance-start character in 
the pattern. 

3. By a negative sign (1011, 1101). 

During the processing of the left half- 
byte the sign of the right half-byte is 
checked and set accordingly. If a sign 
coincides with a valid digit or with a 
significance-start character in one posi- 
tion of the result fields, the sign takes 
precedence and the S-trigger is set to OFF 
(0). 

The new S-trigger setting always takes 
effect with the subsequent position. 

The fill character, which under certain 
conditions, is placed into the result 
field, is always the first (left) character 
of a pattern; it is retained in the pattern 
(exception: the digit-select character and 
the significance-start character) . 

The S-trigger in OFF position causes: 

1. The digit- select character (hexadeciiral 
20) and/or the significance-start 
character (hexadecimal 21) to be 
replaced by a valid digit (1-9) from 
the source field. 



All digits in the result field receive 
the zone 1111 in the binary- coded-deciroal 
mode and the zone 0101 in the USASCII mode. 
The type of zone used depends on bit six,, 
the mode bit, in the F3W. 



Condition Codei 

The condition code is set to; 

1. 00 if the source field contains only 
zeros. The setting of the S-trigger 
has no effect. 

2. 01 if the source field is not zero and 
the S-trigger is set to CN (1). (Nega- 
tive result) . 

3. 10 if the source field is not zero and 
the S-trigger is set to OFF (0). 
(Positive result). 

If several fields are edited with one 
pattern, then the condition code refers to 
the field being processed. If the pattern 
has a field- separator in the last place, 
then the condition code is set to zero. 

The following symbols are used in the 
example below: 

Symbol Meanin g 

b (hexadecimal 40) blank character 
( (hexadecimal 21) significance-start 

character 
) (hexadecimal 22) field-separator 

character 
d (hexadecimal 20) digit-select character 

If the number to be edited is a negative 
number,, then the CR (hexadecimal C3D9) is 
commonly used in the last two bytes of the 
pattern. since the minus sign does not 
reset the 3- trigger, the CR will be left 
unchanged in the pattern. (CR stands for 
credit and indicates payments due) . 



2. The fill character to be stored in 
plafie of a zero in the source field. 

3. The fill character to be stored in 
place of any character in the pattern 
(exception: the digit select and the 
significance start characters) . 

The S-trigger in ON position causes: 

1. The digit- select and/or the 
significance-start character to be 
replaced by any digit (0-9) from the 
source field. 

2. A character in the pattern to remain 
unchanged (exception: the digit- 
select, field-separator, and 



Example : (The numbers are given in decimal 
notation with the hexadecimal equivalent in 
parentheses. ) 

Assume that register 12 contains 1000 
(03E8), 
Di is (00) , 
Da is 200 (C8), 

storage location 1000-1012 (3E8-3F4) con- 
tains bdd,dd(.ddbCR (unpacked), 
storage location 1200-1203 (4B0-4B3) con- 
tained 0257U26C (packed) , 

Source statement : 

ED 0(13, 12), 200(12) 

From this source statement the Assembler 
produces the following object, code: 
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r T T T T T 1 

|Op-codelL |Ei|Di IE2ID2 I 

J. +— +— + — +— + — ^ 

1 DE |C IC |000|C J0C8| 
L X i X X X J 



Processing proceeds left to right one 
character at a time as shown in Figure 7 . 



NI — AND IMMEDIATE 

r T' -T — 1 

INaire | Operation] Operand | 

^_ + + ^ 

I blank or I NI |Di(Bi),l2 | 

] symbol j | |. 

L X X J 



Pattern 


Digit 


S-trigger 


Rule 


Location 1000-1012 


b 







leove^l^ 


bdd, dd(.ddbCR 


d 








fill 


bbd, dd(.ddbCR 


d 


2 




digit 


bb2,dd(.ddbCR^^^ 


/ 






leave 


same 


d 


5 




digit 


bb2, 5d(.ddbCR 


d 


7 




digit 


bb2, 57(.ddbCR 


( 


4 




digit 
leave 


bb2,574.ddbCR 
same 


d 


2 




digit 


bb2, 574.2dbCR 


d 


6C 





digit 


bb2, 574.26bCR^^^ 


b 







fill 


same 


C 







fill 


bb2, 574.26bbR 


R 







fill 


bb2, 574.26bbb 



Notes; 

1. This character is saved as the fill 
character. 

2. First non-zero digit sets S-trigger to 
one. 

3. The plus sign in this byte sets the 
S-trigger to zero. 

Figure 7. Processing of an 
Edit-Inst ruction 

After execution location 1000-1012 (3E8- 
3F4) contains bb2,574. 26bbb, the condition 
code is set to 10- 

If the contents of location 1200-1203 
are 00 00 02 6D, the following results are 
obtained : 

(before) Loc 1000-1012 (3E8-3F4) 

bdd,dd(.ddbCR 

(after) Loc 1000-1012 (3E8=-3F4) 

bbbbbb-26bCR 



Function : The immediate data in the I 2 
field and the contents of the storage loca- 
tion addressed in the first field are con- 
nected by the logical AND. The result 
(logical product) is placed into the first 
field. 

The connective AND is applied bit by 
bit. If there is a 1-bit in both fields, 
then the 1-bit in the first operand remains 
unchanged. Otherwise the 1-bit in the 
first field will be changed to a 0-bit. 

Condition Cod e: If all eight bits in the 
result field are zero, the condition code 
is set to 00. Otherwise it is set to 01. 

Example : (The numbers are given in decimal 
notation with the hexadecimal equivalent in 
parentheses) . 

Assume that 

register 8 contains 4096(1000), 

Di is 1000(3E8), 

I2 is 2720 (AA), in binary notation: 

1010 1010, 

location 5096(1060) contains 240(F0)„ in 

binary notation: 1111 0000. 

Source statement : 

NI 1000(8), X'AA' 

From this source statement the Assembler 
produces the following object code: 

r T — T — T 1 

I Op-code 1 12 1 El I Da. | 

i. +—+--+ — ^ 

I 94 |AA|8 |3E8| 
L X X X J 

After execution storage location 5096(1060) 
contains 160 (AO) or in binary notation 1010 
0000. 

Condition code setting is 01. 



Condition code is set to 01 (result less 
than zero) . 

In this case the significance-start 
character in the pattern causes the deciiral 
point to be left Unchanged. The minus sign 
does not reset the S-trigger so that the CR 
symbol is also preserved. 



01 ~ OR IMMEDIATE 

r T T ■ 1 

I Name | Operation! Operand | 

|. + 1 . ^ 

I blank orjoi |Di(Bi),l2 | 

I symbol II 1 

L X X J 
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Function; The iirrtiediate data in the 1 2 
field and the contents of the storage loca- 
tion addressed in the first field are con- 
nected by the inclusive OR. The result 
(logical sum) is placed into the first 
field. 

The inclusive OR is applied bit by bit. 
A 0-bit in both fields will set the bit in 
the result field (first operand) to zero. 
Otherwise the resulting bit will always be 
one. 

Condition Cod e: If all bits are zero, then 
the condition code is 00^ Otherwise the 
condition code is set to 01. 

Exampl e; (The numbers are given in decimal 
notation with the hexadecimal equivalent' in 
parentheses) . 

Assume that 

register 8 contains 4036(1000), 

Di is 1000(3E8), 

I2 is 2720 (AA), in binary notation: 

1010 1010, 

storage locaition 5096(1060) contains 

240 (FO), in binary notation: 1111 1010. 

Source statement: 

01 1000(8), X'AA' 

From this source statement the Assembler 
produces the following object code: 

r T — T — T 1 

|0p-code|l2|Bi|Di 1 

^ +--+—+ ^ 

I 96 1AAI8 |3E81 

t. X JL J. J 



if the corresponding bit in the mask con- 

J -— c^ — tl-III T^ J_1 ■U^i. ^_ i.1 .1. i r^ 

Laj-no a X . XL. uiit; uxu j.ii cut; iiiaois. -lo 

"0", the corresponding bit in the first 
data field field will not be tested. 



Con dit io n Code : 

00: all bits tested were zero (also, if 

all bits in the mask were zero, i.e., 
no test) . 

01: some (not all) of the bits tested were 
one. 

11: all bits tested were one- 

Ex ample ; (The numbers are given in decimal 
notation with the hexadecimal equivalent in 
parentheses) . 

Assume that 

register 8 contains 2000 (07D0), 

Di is 650 (28A) , 

I2 is 217 (D8) or in binary notation: 

1101 1001, 

storage location 2650 (ASA) contains 204 (CC) 

or in binary notation: 1100 1100. 

Source statement: 

TM 650(8), X'D9' 

From, this source statement the Assembler 
produces the following object code; 

r T — T — T 1 

|0p-code|l2|Bi|Di I 

y +— +— + H 

f 91 |D9|8 |28A| 

L J. J. i J 

Condition code is 01. 



After execution storage location 5096(1060) 
contains 250 (FA) or in binary notation; 
1111 1010. 



HPR -- HALT AND PROCEED 



Condition code is 01. 



TW — TEST UNDER MASK 
r T T: 1, 

I Name | Operation | Operand | 

1- 1 1 ^ 

1 blank orlTM |Di(Ei),, I2 I 

j symbol j | | 

L .X X J 

Function; The bit combination of the mask 
in the I2 field is compared with the con- 
tents of the storage location addressed in 
the first data field. The result of the 
comparison sets the condition code. 

The eight bits of the mask correspond 
bit by bit to the eight bits defined by the 
first data field. A comparison with a bit 
in the first data field is performed only 



r T T 1 

I Name | Operation] Operand | 

I. 1 ^ ^ 

I blank or | HPR |Di(Ba.),0 ] 

j symbol | | ] 

L X X J 

Funct ion ; This instruction is used to halt 
the CPU. All input/output operations are 
continued to completion. 

Execution of the program miay be resumed 
with the next sequential instruction by 
pressing the Start key on the CPU. 

This instruction uses the SI-Format in 
which the I2 field is ignored. The effec- 
tive address derived from the B^-^x fields 
may be used to identify the Halt and Pro- 
ceed instruction. 

Condition Co de : No change . 



Example ; (The numbers are given in decimal 
notation with the hexadecimal equivalent in 
parentheses) . 

Assume that 

register 10 rontains U50(0lC2)„ 

Di is 140(0^0, 

The halt number 590 (24E) is shown on the 

E-S~T-R registers on the console as 024E. 

Source statement: 

HPR 140(10), 

From this source statement the Assembler 
produces the following object code: 



r ir — T — T 1 

lOp-codellalBilDi j 

h +--+—+ ^ 

1 99 |00|A 108C| 

L X J. -L J 



the EBCDIC characters 6MB0lb3-2 (where 
b=blank) . 

Source statement: 

TR 1000(12, 10), 2000(12) 

From^ this source statement the Assembler 
produces the following object code: 



r T T T T T 1 

|Op-code|L IBilDi IB2ID2 I 

i. +— +— + — +— + — ^ 

I DC I OB I A |3E8|C |7D0i 
L i X X X X J 

After execution storage location 1000-1012 
(3E8-3F4) contains the EBCDIC characters 
bIBMb360-20b (where b=blank) . 



BRANCH OPERATIONS 



TR — TRANSLATE 



r — T T 1 

jName ) Operation | Operand | 

i__^ 1 _ — + _ ^ 

I blank or I TR JEi (L,Bi) ,02(63) | 
I symbol | j I 

L X X J 

Function; This operation, allows you to 
replace the values of one operand field by 
the corresponding values of a table. 

Every byte in the first data field is 
used to look up a value in a table. The 
binary value of a byte is added to the 
starting address (given by the B2/D2 field) 
of the table. The sum is the address of 
the table-value wanted. This table-value 
replaces the byte in the first field used 
to locate the table- value. 

Processing proceeds from left to right 
until the end of the first operand is 
reached. The maximum length may be 256 
bytes. The table must contain as many 
bytes as indicated by the highest binary 
value used for searching. 

Condition Cod e: No change. 

Exampl e: (The numbers are given in decimal 
notation with the hexadecimal equivalent in 
parentheses) . 

Assume that 

register 10 contains 0(0000), 
register 12 contains 0(0000), 
Di is 1000 (3E8) , 
D2 is 2000(7D0), 

storage location 1000-1012 (3E8-3F4) con- 
tains the EBCDIC characters 542156037835 
and location 2000-2009(700-709) contains 



Normally the CPU processes instructions in 
the order of their location in main 
storage. Branch operations allow a depar- 
ture from this sequence. They enable the 
machine to make logical decisions on the 
basis of certain conditions. For example: 

• The program continues in its normal 
sequence. 

• The program branches to a subroutine. 

• Part of the program is repeated (loop). 

The branch address may be obtained from 
one of the general registers or it may be 
specified in an instruction. The branch 
address is independent of the updated 
instruction address. 

Branching is determined either by the 
condition code in the Program Status Word 
(PSW) or by the contents of the general 
registers used in the operations. 

During a branch operation the rightmost 
half of the PSW, the updated instruction 
address, may be stored before it is 
replaced by the branch address. The stored 
information may be used to link the new 
instruction sequence with the preceding 
sequence. 

The condition code and the branch 
instruction are used to make logical deci- 
sions within a program. The branch opera- 
tion itself does not change the condition 
code. 

For your convenience, the Assembler pro- 
gram provides the facility of extended mne- 
monics for branch operations. Appendix A 
contains a list of all extended mnemonics. 
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MACHINE FORMATS CF INSTRUCTIONS FOR BRANCH 
OPERATIONS 

Branching instructions can be in the RR or 



RR Format 



1. Operation code invalid. 



r T T -1 

I Op-code |Ri IR2 I 

8 12 

The Ri field may specify a general register 
into which the address of the next sequen- 
tial instruction is to be stored as link 
information,, or iray contain a mask which is 
employed to identify the bit values of the 
condition code. In the latter case it is 
referred to as the M-. field. 



7. 



Ariri-roscii na (^yrri-rr 



b. 



c. 



d. 



•; ^„ -, ;^A -^^ 



^^ _ K-^a^^V, 



address refers to the protected 

first 144 bytes of main storage. 

An instruction address or a branch 

address is outside available 

storage. 

The R-L field of a Branch and Store 

instruction contains binary values 



rro-KO "f- Vi"K"on rfVi c3*3T7Qn r^ir 4- Vio D. 



f -i oT ^ 



of an RR format branch instruction 

contains binary values one through 

seven. 

An instruction part is located in 

the last (highest) two main storage 

positions. 



Specification error: 



The Ra field specifies the general 
register that contains the branch address. 



RX Furmat 



The low-order bit of an instruction 

address is one, i.e., no half word 

boundary. 

Bits 12 through 15 of an RX format 

instruction are not all zero. 



r T T T T- 

I Op-code I Ri 1X2=0) Ba | 
t X X X X. 







12 



16 



20 



31 



4. CPU parity error. 



INSTRUCTIONS FOR BRANCH OPERATIONS 



The Ri field may specify a general register 
into which the updated instruction address 
is to be stored as link information, or may 
contain a mask (then called M^. field) that 
is employed to identify the bit va:lues of 
the condition code. 

The effective address derived from the 
Ba-Da fields is the branch address. 



SI_ 


Format 












|0p 
L — 


-code 1 

X 


"-T" 

1 


Bi 


1 
_X 


Di 


1 



The branch instructions, their operation 
codes, formats, and mnemonics are shown in 
the following table: 



! Name 
j. 



I op- I 



I 

Branch on Condition (BCR) | 
I Branch on Condition (BC) j 
Branch S Store (BASR) j 
Branch S Store (BAS) | 
Set PSW(SPSW) i 



:ode j Forifiat ! 

+ -i 



07 


RR 1 


47 


RX 1 


OD 


RR 1 


4D 


RX 1 


81 


SI i 







16 



20 



31 



The SI format is used by only one branching 
instruction,. Set PSW. The effective 
address derived from the Bx~Bx fields spe- 
cifies the location of a word in main 
storage which is to replace the PSW (pro- 
gram status word) . Bits 8-15 of the Set 
PSW instruction are ignored. 



BCR — BRANCH ON CONDITION REGISTER 

r T T 1 

I Name | Operation | Operand | 

y + 1 ^ 

I blank or j BCR jMirRa | 

I symbol | | j 

L X X J 



ERROR CONDITIONS 

Error conditions which may occur during a 
branch operation are: 



Function: The condition code is tested 
against the four bits in the mask M^. If 
the condition is met, a branch occurs to 
the address in main storage specified by 
Ra« Otherwise, the next sef^uential 
instruction is executed. 
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There is a corresponding bit in the mask 
for each of the four possible condition 
code settings as shown below: 



r T T T T 1 

I Bit in Mj. 11 ]2 |3 |U I 
j. 4.__|__+__+_.^ 

I Condition Code | 00) 01 1 10) 11 1 

L X i. i -L J 



The condition for a branch is met if the 
mask bit corresponding to the current con- 
dition code setting is a 1-bit. 

It is possible to connect several condi- 
tions by specifying a 1-bit in the corres- 
ponding mask-bit positions. An uncondi- 
tional branch occurs if all four bits in 
the mask are 1-bits. The branch instruc- 
tion is ignored if all four bits in the 
mask are 0-bits or if Ra is zero. 

Condition code; No change. 

Exam£le: Assume register 9 contains decim- 
al 555 (hexadecimal 22B), the condition 
code in the PSW is 01„ and the mask is 
given as hexadecimal 6. 

Source statement: 



BCR 



X' 6 ' „ 9 



Assembler produced object code: 



r r T — 1 

|Op-codel Ml I Rat 
j. __|..„|__^ 

I 07 1011019 1 



r T — T T — T 1 

|Bit in Ml |1 12 13 14 I 
|._ _ ^.._^._.^.._^...^ 

ICondition Codej 00 101 110 111 j 

L i JL X X J 



The condition for a branch is met if the 
mask bit corresponding to the current con- 
dition code setting is a 1-bit, 

It is possible to connect several condi- 
tions by defining several bits in the mask 
accordingly. An unconditional branch 
occurs if all four bits in the nasfe are 
one. The branch instruction is ignored if 
all four bits in the mask are zero. 

Condition Co de: No change 

Example: Assume that 
Da is 875 decimal (36B hexadecimal) , 
Register 11 contains 0000, 
Condition code in the PSW: 00. 

Source statement: 

BC X'8V,875 (0,11) 



Assembler produced object code: 



^ . — ._^__^ — ^ — ^_ — ^ 

I Op-code 1 Ml 10 IBalDa 1 

f +_-|„+_-| ^ 

I U7 18 |0 IB |36B| 

L X X X X J 

A branch to main storage location 036B 
(hexadecimal) takes place (braich on 
equal) . 



A branch to the main storage location 022B 
will take place. 



BASR -- BRANCH AND STORE/RESISTER 



BC — BRANCH ON CONDITION 

r T r 1 

1 Name | Operation 1 Operand | 

|. 1 1 ^ 

I blank orlBC 1 Mi,,D2 (CBa) | 

I symbol j | 1 

L X X J 

Function: The condition code is tested 
against the mask Mj. (four bits). If the 
condition is met, a branch occurs to the 
storage address specified by Ba/Da. Other- 
wise the next sequential instruction is 
executed. 

For each of the four condition code set- 
tings there is a corresponding bit of the 
mask as shown below: 



r T T 1 

1 Name | Operation 1 Operand | 

I 1 1 ^ 

I blank or | BASR iRirRa j 

I symbol j j j 

L X X J 

Function: A branch is taken to the address 
specified by the contents of the register 
in the Ra field. Next, the rightmost 16 
bits of the P3W, the address of the next 
sequential instruction, are stored as link 
information in the general register speci- 
fied in the Rj. field. If Rg contains all 
zeros, then only the address of the next 
sequential instruction is loaded into the 
register specified by the R^ field and no 
branching takes places. 

Condition Code: ^o change. 
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o n Q r.7 _ 

kJt Dim 



_ o TT nn n cf r.T 



rhe contents of register 10 are arbitrary. 
rt.ssufue that register 12 contains hexadecinr 
al 0361 (decimal 865), 

FS/i 16-31 contains hexadeciTial 026D CdeciTi- 
al 621). 

Source statement : 

BASR 10,12 

A.sse[nbler produced object code 

J . — <i 1 — 1 

j Op-code JRiiRa I 

j. +-+— ^ 

I OD \h |C I 
L J. i i 

?lfter execution register 10 contains 026D 
and a branch is taken to storage location 



I Name j Operation] Operand | 

Y A 1 i 

I blank or ISPS// jDiCBi) | 

1 symbol } | j 

L_^ X i. J 

Function: The only operand DiCBj.) speci- 
fies the address of a word in nain storage 
which is to replace the PSw. 



PSW Format 



CC| 



T^ 



MAW 



DA 



FS 



Instruction Address 



12345678 



12 



16 



31 



B»lS — BRANCH AND STORE 

r T — ' 1 1 

I Name j Operation! Operand | 

|. _^ 1 ^ 

jblank or|BA.S |Ri,D2<0,B2) I 

I symbol | J | 

L i. X J 

Function: The rightmost 16 bits of the 
PSW, the address of the next sequential 
instruction, are stored as link information 
in the general register specified by Rj. . 
Next,, the address specified by Ba/iJa is 
stored as an instruction address in the 
PSW. This amounts to a branch to the 
address specified by B2/D2- 

Condi tion Code : No change. 

Exa bqI e : 

The contents of register 10 are arbitrary. 
Assume that register 11 contains hexadecim- 
al OlttB, 

PSW bits 16-31 represent hexadecimal 036B, 
D2 is hexadecimal 12C (decimal 300). 

Source statement: 

BAS 10,300(0,11) 

Assembler produced object code: 

r T — T T — r 1 

|Op-codelRi|X=0 IB2ID2 I 

j. ^.— + — ^— + — ^ 

I 4D JA I !B !12Ci 
L X — X X X J 

After execution register 10 contains 
hexadecimal 036B and a branch to storage 



1 J ^^. . 



.- T rtcjn 



xus^o. i,.i.jii iieAaaeL-xtiia J. \j ^ i i x & uajs-cii 



0-1 Not used 

2-3 Condition Code 

n Not Used 

5 Overlap Mode (Submodel 5 only) 

6 USASCII Mode Bit 

7 Channel Mask 
8-11 Device Address 

12-15 Function Specification 

16-31 Instruction Address 



Programming [^otes 

1. The instruction address porbion of the 
word wniCii x3 transferred j-CDTi nain 
storage to the PSW by the Set PSW 
instruction should: 

a. ."^ot refer to the protected first 
141 bytes of main storage, 

b. Have the least Fsigrji f leant hit 
zero, and 

c. Be within the limits of available 
storage. 

If these conditions are not satisfied, 
an addressing or specification error 
halt will occur. 

2. The condition code is set by the Set 
PSW instruction to the value contained 
in the word transferred from main 
storage to the PSW. 

3. Main-storage boundaries are not 
required of the first operand address 
in the Set PSW instruction. 

4. The condition code, USASCII -node bit, 
channel mask, and overlap mode bit in 
the PSW are zero when the CPU is in the 
reset state. The instruction address 

portion of the PSW is not changed when 
the CPU is reset. 
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Example: Assume Dj. is 875 (hexadecimal • Control I/O (CIO) 
036B)7 and register 11 contains 555 (hexa- 
decimal 022B). Bits 16 ttirougti 31 of the 
PSW contain 0444 (hexadecimal), • Test I/O and Branch (TIOB) 



Source statement: 
SPSW 875(11) 



• Transfer I/O (XIO) 



The address of the next sequential instruc- You can find a detailed description of 
tion as given bf bits 16 through 31 of the these instructions in the SRL publication 
PSvf will now be 1430 (hexadecimal 0596). IBM_Si[Stem/3 60_Model_2 0_Functional_Ch^ 

teristicsy Form GA.25-5S47. 

IMPOT/OUTPUT OPERATIONS 

It is recommended, however,, that you use 
The Assembler program supports the follow- the IBM-supplied IOCS macro definitions for 
ing Input/Output operations: your input/output operations. 
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Literals 



A literal is one way to introduce data into 
a program. It represents data itself rath- 
er than a reference to data. 



Literals provide a means of entering 

^-^ _ r^ a. _ -, J. r^ /r^.-^U -, r» „ ,, ,»,K-v —r^ C^^ ^ -, 1 ^,, 1 -, 0. J ^ _ 

addresses, messages, etc.),, into a program 
by specifying the constant in the operand 
of the machine instruction in which it is 
used. The Assembler program assembles the 
value specified by the literal, stores this 
value in a "literal pool", and places the 
address of the storage field containing the 
value in the operand field of the asse^iibled 



=CL7'PA3E' — 

=X'la.4C' 

= B'10011110' — 

=P'+324' 

=Z'-541» 



a character constant with 

explicit length. 

a hexadecimal constant. 

a binary constant. 

a decimal constant (packed) 

a decimal constant (zoned). 



The instruction coded below shows one 
use of a literal. 



r r T 

I Name | Operation | Operand 



A literal is an alternative to using the 
DC Assembler instruction as a means to 
enter data into the program, and then using 
the name of the DC instruction in the 
operand. Literals can be used in machine 
instructions only. There, you may use a 
literal wherever a storage address is per- 
mitted as an operand. 



Only one literal is allowed in a machine 
instruction. A literal must not be speci- 
fied in the first operand of a machine 
instruction. It cannot be changed in 
storage, i.e., it must not be used as the 
T^grjgivinci field of a machine instruction 
that modifies storage,, e.g., STH. 



The statement GAMMA is a load instruc- 
tion that uses a literal as the second 
operand. When assembled, the second 
operand of the instruction will be the 
address at which the binary value repre- 
sented by H*274' is stored. 



A literal is not to be confused with the 
immediate data in an SI instruction. Imme- 
diate data is assembled into the 
instruction. 



LITERAL POOL 



A literal cannot be combined with other 
terms. 



Li teral _For ma t : The method of describing 
and specifying a constant as a literal is 
nearl^^ identical to the method of specify- 
ing it in the operand of a DC Assembler 
instruction. The major difference is that 
the literal must begin with an equal sign 
(=) , which indicates to the Assembler that 
a literal follows. Refer to the discussion 
of the DC Assembler instruction operand 
format under Assembler Instructions for the 
means of specifying a literal. An address 
constant can be expressed as a literal. 
Some examples of literals are: 



=y(BETA) 
=H'123i|' 



address constant. 

a fixed-point number with 

a length of two bytes. 



icuL u- v^ i^i:;:::^ 



The literals processed by the assembler are 
collected and placed in a special area 
called the literal pool, and the location 
of the literal, rather than the literal 
itself, is assembled in the statement emp- 
loying a literal. 



You may control the position of the lit- 
eral pool by using a LTORG instruction. 
Unless otherwise specified (through a LTORG 
instruction) , the literal pool is placed at 
the end of the first. or only control sec- 
tion. If this control section ends with an 
XFR card, the literal pool is inserted 
before the XFR card. 

You may also specify that multiple lit- 
eral pools be created by using several 
LTORG instructions. However, the sequence 
in which literals are ordered within the 
pool is controlled by the Assembler. 
Further information on positioning the lit- 
eral pool(s) is given under LT0RG_--_Be3in 

Tit- ^-y . 1 n;rN/^1 

U -L O C; 0. CI J. C^ V^<^X . 
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Assembler Instructions 



Assembler instructions are requests to the 
Assembler to perform certain operations 
during the assembly. Assembler instruc- 
tions, in contrast to machine instructions, 
do not cause machine instructions to be 
included in the assembled program. Some, 
such as DS„ generate no instructions but do 
cause storage areas to be set aside for 
data. Others, such as SPACE, are effective 
only at assembly time; they generate noth- 
ing in the assembled program and have no 
effect on the location counter. 

Some of the uses of assembler instruc- 
tions are: 



Listing- gohtrol Instructions 

TITLE - Identify Assembly Output 

EJECT - Start New Page 

SPACE - Space Listing 

PRINT - Print Optional Data 



Program-Control Instructions 

ORG - Set Location Counter 

LT0R3 - Begin Literal Pool 

END - End Assembly 

REPRO - Reproduce Following Card 

XFR - Generate a Transfer Card 



• To generate data constants for the 
object program. 

• To reserve storage locations within the 
object program for use as input/output 
areas or as work areas. 

• To control the assembly process; such as 
setting the location counter .to some 
value. 

• To control the listing by e.g., telling 
the assembler to eject to a new page. 

• To tell the assembler when you intend to 
use a label that is defined in another 
program. 

The following is a list of all the 
Assembler instructions. 



Symbol Definition Instrucition 

EQU — EQUATE SYMBOL 

The EQU instruction is used to define a 
symbol by assigning to it the attributes of 
an expression in the operand field. The 
format of the EQU instruction is as 
follows: 



r T "-T " — ■ — • 1 

I Name | Operation | Operand | 

^ ^___ ^ ^ 

(A symbol |EQU | An expression | 

L i i. J 



S ymbol-Defini t ion Instruction 
EQU - Equate Symbol 

Data-Definition Instructions 

DC - Define Constant 

DS - Define Storage 

DCCW- Define Channel Command Word 

Program Sectioning and Linki ng Ins tructions 



Start Assembly 
Identify Control Section 
Identify Dummy Section 
Identify Entry-Point Symbol 



START 
CSECT 
DSECT 
ENTRY 
EXTRN - Identify External Symbol 



Base-Register Inst ru ctions 

USING - Use Base Address Register 
DROP - Drop Base Address Register 



The expression in the operand field may 
be absolute or relocatable. Any symbols 
appearing in the expression must have been 
previously defined. 

The symbol in the name field is given 
the same attributes as the expression in 
the operand field. The length attribute of 
the symbol is that of the leftmost (or 
only) term of the expression. The value 
attribute of the symbol is the value of the 
expression. 

The EQU instruction is the means of 
equating symbols to register nunbers,, imme- 
diate data, and other arbitrary values. 
The following examples illustrate how this 
might be done: 

r T T 1 

I Name | Operation [Operand | 

|. f ^ H 

|REG2 I EQU I 12 GENER?^L REGISTER} 
I TEST I EQU |X'3F' IMMEDIATE DATA | 
L i J. 1 
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To irsducG ^TOovB-TRxaxtio tifns,. 



rr\n nnr 



ate symbols to frequently used expressions 
3nd then use the syiriuOxS as operanus in 
place of the expressions. Thus, in the 
statement: 

r T T 1 

I Name | Operation | Operand | 

j. 1 4 J 

I FIELD JEQU I ALPHA-BETA+G?^MMA. | 

L X X J 

FIELD is defined as ALPHa- BET A+ GAMMA and 
may be used in place of the expression. 
ALPHA, BETA and GAMMA must all have been 
previously defined. 



DC ~ DEFINE COfJSTAtJT 

The DC instruction is used to define con- 
stant data in storage. A variety of con- 
stants may be specified: binary, fixed- 
point, decimal, hexadecimal, character., and 
storage addresses. Appendix D summarizes, 
in chart form, the information concerning 
constants that is presented in this sec- 
tion. Data constants are generally called 
constants unless they represent storage 
addresses, in which case they are called 
address constants. 

The format of the DC instruction is as 
follows: 



Data Definition Instructions 

There are four data definition instruc- 
tions: Literals, Define Constant (DC) , 
Define Storage (DS), and Define Channel 
Command Word (DCCW) . 

These instructions are used to enter 
data constants into storage, to define and 
reserve areas of storage, and to specify 
the contents of channel command words. The 
instructions may be named so that other 
instructions can refer to the fields 
generated from them. The discussion of the 
DC instruction is far more extensive than 
that of the DS instruction, because the DS 
instruction is written nearly in the same 
format as the DC instruction. For this 
reason,, the DC instruction is presented 
first and discussed in more detail than the 



Boundary alignment varies according to 
the type of constant being specified. Only 
H- and Y-type constants are aligned to a 
half-word boundary unless a length modifier 
is specified. 

Bytes that must be skipped to align the 
field at the proper boundary are not consi- 
dered to be part of the constant, 

A byte skipped in aligning statements 
that do not cause information to be 
assembled is not zeroed. Thus, a byte 
skipped to align a statement such as DC 
H'123' is zeroed, whereas a byte skipped to 
align a statement such as DS 2H is not 
zeroed. 

All operand specifications are applic- 
able to writing literals, the only dif- 
ferences being that 

(1) the literal is preceded by an = sign 

(2) a location-counter reference is not 
permitted in an address- constant 

1 •; 4-,-»-^-. n 
ju J. ucj. cix • 



r r 1 1 

I Name | Operation | Operand | 

|. 1 4. _ ^ 

jA symbol j DC j One operand in \ 
} or blank j j the format j 
I I I described below j 
L X X J 



Format (s) of operand: 

dtm'c' or dtmCc) 

d = duplication factor (optional) 
t = type (required) 
m = length modifier (optional) 
c = constant (required) 

The symbol in the name field of the DC 
instruction statement is the nane of the 
constant. 

The value attribute of the symbol naming 
the DC instruction is the address of the 
leftmost byte (after alignment) of the con- 
stant. The length attribute depends on (1) 
the type of constant being defined and (2) 
the presence of a length specification. 
Implied lengths are assumed for the various 
constant types in the absence of a length 
modifier. The implied length is assigned 
before application of the duplication 
factor. 

Examples of literals appear throughout 
the discussion of the DC instruction. 

Duplication Fact or; The duplication factor 
may be omitted. If specified, the constant 
is generated the number of times indicated 
by the factor. The duplication factor must 
be an unsigned decimal value. It is app- 
lied after the constant is fully assembled, 
i.e., after it has been developed into its 
proper format. 

A duplication factor of zero is not 
permitted. 

Tyge: The type defines the type of con- 
stant being specified. From the type spe- 
cification, the Assembler determines how it 
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is to interpret the constant and translate 
it into the appropriate machine format* 
The type is specified by a letter code as 
shown in Appendix D. Further information 
about these constants is provided under 
Con sta nt. 

Length Modifie r: A length modifier expli- 
citly describes the length of a constant in 
bytes (in contrast to an implied length) 
and becomes the length attribute of the 
symbol in the name field. 

The length modifier is written as Ln, 
where n is an unsigned decimal value. The 
value of n represents the number of bytes 
of storage that are assembled for the con- 
stant. The maximum value permitted for 
length modifier supplied for the various 
types of constants is summarized in Appen- 
dix D. This table aliso indicates the 
implied length for each type of constant; 
the implied length is used unless a length 
modifier is present. 

A length modifier may be specified for 
any type of constant. You would use a 
length modifier when you want the assembler 
to pad the constant (extend it with either 
blanks or zeros) . 

For example, the instruction DC CL3'A' 
defines a constant having a length of three 
bytes, the leftmost byte containing the 
character and the other two bytes contain- 
ing blanks. 

Note: No boundary alignment will be per- 
formed when a length modifier is specified. 

Constant ; A data constant (all types 
except Y) is enclosed in apostrophes. An 
address constant (type Y) is enclosed in 
parentheses. Thus, the format for specify- 
ing the constant is one of the following: 

* 'constant' 

• (constant) 

The total storage requirement for a data 
definition is the product of the length 
times the duplication factor (if present) 
plus any byte skipped for boundary align- 
ment of the first constant. 

The subsequent text describes each of 
the constant types and provides examples. 

C -- Characte r Con stant: Any of the valid 
256 punch combinations may be designated in 
a character constant. 

Special consideration must be given to 
representing apostrophes and ampersands as 
characters. Each apostrophe or ampersand 
desired as a character in ttie constant must 
be represented by two apostrophes or amper- 
sands. Only one apostrophe or ampersand 
appears in storage. 



The maximum length of a character con- 
stant is 32 bytes. No boundary alignment 
is performed. Each character is translated 
into one byte. Two apostrophes or two 
ampersands count as one character. 

If no length modifier is given, the size 
in bytes of the character constant is equal 
to the number of characters in the con- 
stant. If a length modifier is provided,, 
the result varies as follows: 

1. If the number of characters in the con- 
stant exceeds the specified length, as 
many of the rightmost bytes as neces- 
sary are dropped. 

2. If the number of characters is less 
than the specified length, the excess 
rightmost bytes are filled with blanks. 

In the following example, the implied 
length attribute of FIELD is 12: 

r T T 1 

I Name | Operation | Operand | 

^ ^ ). ^ 

I FIELD I DC IC TOTAL IS 110' j 
t i. i J 

However, in this next example, the 
explicit length attribute is 15, and three 
blanks appear in storage to the right of 
the zero: 

r T r 1 

I Name | Operation j Operand | 

^ ^ 1 _ ^ 

I FIELD I DC |CL15'T0TAL IS 110' 1 
L , i. X J 

In' the next example, the implied length 
attribute of FIELD is 12, although 13 
characters appear in the operand. The two 
ampersands count as only one byte. 

r T — T 1 

I Name (Operation | Operand { 

y ^ + ^ 

I FIELD IDC I C' TOTAL IS 6610' | 
L i, J. . J 

Note that in the next example, a length 
of four has been specified, but there are 
five characters in the constant. 

r T T 1 

1 Name [Operation ] Operand | 

j. + 4 ^ 

I FIELD I DC |3CLU'ABCDE' 1 

L i, JL J 

The generated constant would be: 

ABCDABCDABCD 

The same constant could be specified as 
a literal as follows: 
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r T T ^ 1 

I Name | Operation ) Operand | 

I |MVC |AREA(12) ,=3CL4' ABCDE* j 
L i ± J 



r T T 1 

j Name | Operation [Operand | 

I 1 1 1 

JALPHACON I DC |3XL2'A6FUE' | 
L J. J. __„=^„_ _J 



On the other hand, if the length had 
Kopri s'^gr?-! ■fi i^d as six instead 0"P ■^our i 
generated constant would have been: 

ABCDE ABCDE ABCDE 



The resulting constant would be 6F4E, 
which would occupy the specified two bytes, 
iu iwOUxu uijen jje vJiupiXcaL.eo tiiiree 'cxnieo, do 
requested by the duplication factor. If it 
had merely been specified as X'A6F4E', the 
resulting constant would have had a hexa- 
decimal zero in the leftmost position? 



X_7^- Hexadec imal Co nstant : A hexadecimal 
constant consists of one or more of the 
hexadecimal digits 0-9 and A-F. The maxi- 
mum length of a hexadecimal constant is 32 
bytes (64 hexadecimal digits). No half- 
word boundary alignment is performed. 

Constants that contain an even number of 
hexadecimal digits are translated as one 
byte per pair of digits. If an odd number 
of digits is specified, the leftmost byte 
has the leftmost four bits filled with a 
hexadecimal zero,, while the rightmost four 
bits contain the odd (first) digit. 

If no length modifier is specified, the 
implied length of the constant is half the 
number of hexadecimal digits in the con- 
stant (a hexadecimal zero is added to the 
high-order byte if there is an odd number 
of digits)- If a length modifier is speci- 
fied, the constant is handled as follows: 

1. If the number of bytes the constant 
could occupy exceeds the specified 
length, the extending leftmost bytes 
are dropped. 

2* If the number of bytes the constant 

could occupy is less than the specified 
length, the necessary bytes are added 
to the left and filled with hexadecimal 
zeros. 

A four-digit hexadecimal constant pro- 
vides a convenient way to set the bit pat- 
tern of a binary half word. The constant in 
the :^ollowing example would set the bits of 
the first byte of a half word to ones: 

r T T 1 

I Name [Operation [Operand [ 

I. + . + ^ 

I IDS [OH [ 

[TEST [DC [X'FFOO* [ 

L i. X J 

The DS instruction sets the location 
counter to a ha?.fword boundary. 

In the following example, the digit A 
would be dropped, because five hexadecimal 
digits are specified for a length of two 
bytes : 



0A6F4E 

B — Binary Constant: A binary constant is 
written using ones and zeros enclosed in 
apostrophes. Duplication and length may be 
specified. The maximum length of a binary 
constant is eight bytes. 

The implied length of a binary constant 
is the number of bytes occupied by the con- 
stant, which includes any necessary pad- 
ding. Padding or truncation takes place on 
the left. The padding bit used is a zero. 

The following example shows the coding 
used to designate a binary constant. BCON 
would have an implied length attribute of 
one. 



Name 
BCON 


1 Ope: 

-+ 

jDC 


ration 


-T 

[ Operand 
_| 

[B' 11011101' 


1 
1 


BTRUNC 


|DC 




[BLl'lOOlOOOll* 


1 


BPAD 


[DC 

.^i 




IBLI'IOI' 

_i -- 


1 



BTRUNC would be assembled with the left- 
most bit dropped as follows: 

00100011 

BPAD would be assembled with five pad- 
ding zeros, as follows: 

00000101 

H -- Fixed-Point Constant: A fixed- point 
constant is defined as an integer and writ- 
ten as a signed or unsigned decimal value. 
A positive sign is assumed if an unsigned 
number is specified. 

The decimal value is .converted to its 
binary equivalent and assembled as a half- 
word. It is aligned on halfword boundary 
if a length is not specified. \n implied 
j.engtii of two uytes is assumeu. A xengLh 
of one or two bytes may be specified by a 
length modifier, in which case no boundary 
alignm.ent occurs. 

Highest positive and negative values for 
a fixed-Doint constant are: 



5U 




Max 

2i.5_i(=32767) 

2''-l(=127) 



Min 

-2"(=-32768) 

-2'{=-128) 



The binary number occupies the rightmost 
portion of the field in which it is placed. 
The unoccupied portion (i.e., the leftmost 
bits) is filled with the sign. A 1-bit for 
positive and a 0-bit for negative numbers. 

If the value of the number exceeds the 
length, the necessary leftmost bits are 
dropped after conversion. A negative numb- 
er is carried in twos complement form. 

A halfword is generated from the state- 
ment shown below. The value attribute of 
CONWRD is the address of the left byte of 
the halfword, and the length attribute is 
two, which is the implied length for a 
halfword fixed-point constant. 

r T T • 1 

[Name | Operation | Operand | 

|. ^ 1 -^ 

j CONWRD I DC |H'658« j 

L X ± . . J 



the digits is identical to the configura- 
tions for the hexadecimal digits 0-9 as 
stated under Hexadecim al S elf-Defining 
Term . 

For both packed and zoned decimal num- 
bers, a plus sign is translated into the 
hexadecimal digit C, and a minus sign into 
the digit D. 

I If no length modifier is given, the 
implied length for either constant is the 
number of bytes the constant occupies (tak- 
ing into account the format, sign, and 
possible addition of zero bits for packed 
decimals). If a length modifier is given,, 
the constant is handled as follows: 

1. If the constant requires fewer bytes 
than the length specifies, the neces- 
sary number of bytes is added to the 
left. For zoned decimal format, the 
character zero is placed in each added 
byte. For packed decimals, all eight 
bits of each added byte are set to 
zero. 



The next example uses a tialfword con- 
stant as a literal and loads ones into bits 
8 through 15 of register 15. 

r T T ■ 1 

! Name j Operation ! Operand | 

|. +__ 4-^ _ ^ 

I |LH 1 15, =H' 255' | 

L J X J 

P and Z -- Decimal Con stants: A decimal 
constant is written as a signed or unsigned 
decimal value. If the sign is omitted, a 
plus sign is assumed. The maximum length 
of a decimal constant is 16 bytes. No 
halfword boundary alignment is performed. 

If zoned decimal format (Z) is specified, 
each decimal digit is translated into one 
byte. Except for the rightmost byte, the 
translation is done according to the 
character set shown in Appendix J. The 
rightmost byte contains the sign in its 
left half-byte and the rightmost digit of 
the decimal constant in its right 
half -byte. 

In packed decimal format (P), the right- 
most byte contains the rightmost decimal 
digit in its left half-byte and the sign in 
its right half -byte. The other 
decimal digits are "packed" two at a time 
into one byte. 

If you specify an even number of decimal 
digits, one digit will be left unpaired, 
because the rightmost digit is paired with 
the sign. Therefore, in the leftmost byte, 
the leftmost four bits will be set to zeros 
and the rightmost four bits will contain 
the first digit. The bit configuration for 



2. If the constant requires more bytes 
than the length specifies, the neces- 
sary number of leftmost digits or pairs 
of digits is dropped, depending on the 
specified format (zoned or packed). 

For example, the instruction DC P'12' is 
translated into hexadecimal 012C, and the 
instruction DC Z*-543' into hexadecimal 
F5FUD3. 

The following example illustrates the 
use of a packed decimal literal. 

r T ' T 1 

I Name [Operation | Operand | 

f 1 4. ^ 

I JAP |OUT^REA,=PL2'+25* j 
L i L . J 

Y— Addr ess Const ant : Address constants 
are normally used for initializing base 
registers to facilitate the addressing of 
storage. Furthermore, they provide the 
means of communicating between control sec- 
tions of a multi- section program. The 
latter is explained in the section Base 
Regis ter _Instructions . 

An address constant, unlike other types 
of constants, is enclosed in parentheses 
and specified as an absolute, relocatable, 
or complex relocatable expression. (Com- 
plex relocatable expressions are discussed 
below, ) 

The value of the expression may range 
between -2^5 (=-32768) and 2i5-l(=32767) . 
The implied length of an address constant 
is two bytes, and the value is placed in 
the rightmost portion. Alignment is to a 
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halfword boundary, unless a length is spe- 
cified. A length modifier may be used, in 
which case no alignment will occur. The 
length that may be specified depends on the 
type of expression used for the constant! a 
length of 1-2 bytes may be used for an 
absolute expression, while a length of two 
bytes must be used for a relocatable or 
comolex relocatable exDression* 

If an address constant contains a 
location-counter reference, the location 
counter value used is the storage address 
of the first byte the constant will occupy. 

If you specify a duplication for an 
address constant containing a location- 
counter reference, the value of the loca- 
tion counter used in each duplication is 
incremented by the length of the constant.. 

In the following example, the field 
generated from the statement named ?IC0NST 
contains a constant that occupies two 
bytes. Note that there is a location- 
counter reference- The value of the loca- 
tion counter will be the address of the 
first byte allocated to the constant. The 
second statement below shows an address 
constant used as a literal. Since a 
location-counter reference is not permitted 
within a literal, the instruction must be 
named and the name used in the literal if a 
location-counter reference is desired. The 
instruction ADCON will generate the address 
of the constant named FIELDA. 



r T T 

I Name | Operation | Operand 



1" 

jACONST I DC 
\A I LH 
JFIELDA I DC 
I ADCON I DC 
L X 



j YC*+4096) 
I 1U,=Y(A) 
I H'lOl' 
I Y(FIELDA) 

-J. 



Complex Reloca table Expressions : Thes e 
expressions contain two or three unpaired 
relocatable terms or a negative relocatable 
term in addition to any absolute or paired 
relocatable terms that may be present- A 
complex relocatable expression may only be 
used to specify an address constant. 
Unlike relocatable expressions, complex 
relocatable expressions may represent a 
negative value. A complex relocatable 
expression may consist of external symbols 
and designate an address in an independent 
assembly that is to be linked and loaded 
with the assembly containing the address 
constant. 

For example, if SECTIONl and SECriON2 
name two consecutive sections, the 
instruction 



is a complex relocatable expression con- 
stant describing the length of SECTIONl. 



If an address 



Relocation Dictiona ry ( RLD) : 
constant is specified by a rexocauaDJ-e ur 
complex relocatable expression, the 
Assembler automatically places certain 
information into the relocation dictionary. 
This inf orrtiation tells the Linkage Editor 
that this address constant onust be updated 
when the program is relocated and how this 
updating is to be performed. 



OS — UijFlNE STORAGE 

The DS instruction is used to reserve areas 
of storage and to assign names to those 
areas. The use of this instruction is the 
preferred way of symbolically defining 
storage for work areas, input/output areas, 
etc. 



r — -- • 

I Name 



-T T 

I Operation | Operand 



1 



jA symbol 
I or blank 



H 



DS 



I One operand | 
I written in the | 
I format described | 
I below I 

.J. J 



The format of the DS operand is similar 
to that of the DC operand. It consists of 
a duplication factor, a type code, and a 
length modifier. The rules for DC instruc- 
tions are also applicable for DS instruc- 
tions with the following exceptions: 

1= A duplication factor of zero is per- 
mitted. (It does not advance the loca- 
tion counter) . 

2. Only constants of types C and H are 
permitted in the DS instruction. A 
duplication factor is permitted for 
both types. 

3« The length modifier may only be speci- 
fied for the C-type constant. (Range 
0-256). 

U The specification of data 

is not permitted in a DS operand. 

If you have a symbol in the name field 
of a DS instruction, its value attribute is 
the location of the leftmost byte of the 
reserved area. The length attribute of the 
symbol is the length (implicit or explicit) 
of the type of data specified. Any posi- 
tioning required for aligning the storage 
area to the proper type of boundary is done 
before the address value is determined. 



bytes are no1 



^.tJiUtiU , 



DC y (SECTI0N2-SECTI0N1) 



A fixed-point field (H) has an implied 
length of two bytes. The leftmost byte is 
aligned to a halfword boundary. Use this 
code if you desire to reserve two bytes of 
storage aligned to a halfword boundary. A 



duplication factor would have to be used to 
reserve a larger area,, because the maximum 
length specification for this type is two 
bytes. 

Character (C) fields have an implied 
length of one byte. If you use this code, 
you would have to specify a length modifi- 
er,, unless you want to reserve just one 
byte,. Although no alignment occurs, the 
use of a C-type field permits greater lati- 
tude in length specifications, the maxiiruiti 
for this type being 256 bytes. 



Special Uses of the Duplicatioa Factor 



Forcin g Alignmen t: The location counter 
can be forced to a halfword boundary by 
using the H-type field with a duplication 
factor of zero. This method may be used to 
obtain boundary alignment that otherwise 
would not be provided. For example, the 
following statements would set the location 
counter to the next half-word boundary and 
then reserve storage for a 128-byte field 
(whose leftmost byte would be on a half- 
word boundary) . 



The size of a storage area that can be 
reserved by using the DS instruction is 
limited only by the maximum value of the 
location counter. Since the maximum length 
specification is 256, an area larger than 
256 must be specified with a duplication 
factor. For example, the statement 

DS 2CL200 

can be used to reserve 400 positions of 
main storage. 

To define four 10-byte fields and one 
100-byte field, the respective DS instruc- 
tions might be as follows : 

r T ' T — 1 

jName | Operation | Operand | 

^ 1 4 ^ 

1 FIELD IDS I 4CL10 | 

I AREA IDS ICLIOO | 

L J. X _j 

Although FIELD might have been specified 
as one 40-byte field, the preceding defini- 
tion has the advantage of providing FIELD 
with a length attribute of 10. This would 
be important when using FIELD as a machine- 
instruction operand governed by a length 
consideration. 

Additional examples of DS statements are 
shown below: 



r T 1 

IName j Operation | Operand 



1 ONE I DS 

I I 

JTWO IDS 

I \ 

I THREE IDS 



CL80 (one 80- byte field, 

length attribute of 80) 
80C (80 one-byte fields, 

length attribute of one) 
4H (four halfwords, 

length attribute of 

two) 



Note: A DS instruction causes the storage 
area to be reserved, but not to be set to 
zeros. You cannot assume that the area 
contains zeros or data saved from a pre- 
vious program or program phase. 



r T T 1 

I Name | Operation | Operand | 

J. + 4. ^ 

I IDS I OH I 

I AREA IDS |CL12 8 | 

!. X X . J 

Def ining_Fields of an Area; A DS instruc- 
tion with a duplication factor of zero may 
be used to assign a name and a length to an 
area of storage without actually reserving 
the area. 

A DS statement for c-type fields with a 
duplication factor of zero does not advance 
the location counter. Additional DS and/or 
DC instructions may then be used to reserve 
the area and assign names to fields and 
constants within this area. 

For example, assume that 80-character 
records are to be read into an area for 
processing and that each record has the 
following format: 



Positions 5-10 
Positions 11-30 
Positions 31-3 6 
Positions 47-54 
Positions 55-6 2 



Payroll number 

Employee name 

Date 

Gross wages 

Withholding tax 



The following example illustrates how 
you might use DS instructions to assign a 
name to the record area, then define the 
fields of the area and allocate storage for 
them. 



--j I Name 



I Operation [Operand 



1 l. 4. 


1 


1 IRDAREA 


DS 


I0CL80 


1 1 


DS 


]CLU 


1 1 PAYNO 


DS 


|CL6 


1 1 NAME 


DS 


|CL20 


1 1 DATE 


DS 


I0CL6 


1 |DAY 


DS 


|CL2 


J 1 MONTH 


DS 


|CL2 


lYEAR 


D3 


|CL2 


1 


DS 


|CL10 


1 GROSS 


DS 


|CL8 


1 FEDTAX 


DS 


|CL8 


1 


DS 


ICL18 
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The first instruction names the entire 
area by defining the symbol RDARE?^; the 
instruction gives RDAREZi a length attribute 
of 80 bytes, but does not reserve any 
storage. Similarly, the fifth statement 
names a 6-byte area by defining the symbol 
DATE; the three subsequent statements actu- 
ally define the fields of DATE and allocate 
storage for them. The second, riinth, and 
last statements are used for spacing pur- 
poses and, therefore, are not named. 



DCCW — DEFINE CHANNEL COMMAND WORD 

The DCCW instruction provides a convenient 
way to define and generate a 6-byte channel 
command word aligned at a half-word bound- 
ary. The format of the DCCW instruction 
is: 



Name 



Y 

JA symbol I DCCW 
I or blank] 



-T T 

I Operation ( Operand 



j Four operands, 
I separated by commas, 
I specifying the con- 
I tents of the channel 
j command word 
.X 



The internal machine format of a channel 
command word is described in the SRL publi- 
cation IB M Sy st em/ 3 60 Model 20y Fun ction al 
Charac teri sti c s , Form GA26-5847. 

All four operands must appear. They are 
written, from left to right, as follows: 

First operand: An absolute expression 
specifying the command code. The value of 
this expression is right-aligned in byte 
one. 

Second operand: An absolute expression. 
The value of this expression is right- 
aligned in byte two. 

Third operand: An absolute or relocat- 
able expression specifying a storage 
address. The value of this expression is 
right-aligned in bytes 3-4. 

Fourth operand: An absolute expression. 
The value of this expression is right- 
aligned in bytes 5 and 6. 

For further details see the pertinent 
hardware SRL publication. 

The following is an example of a DCCW 
instruction for a niagnetic tape read: 

r T-^ 1 1 

I Name | Operation | Operand ! 

y + „ „.-+ 4 

j jDCCW IX'02' ,X*80' ,READAREA,80 I 
i. i -J. . J 



If READAREA represents, for example, the 
value 120**, the assembled CCW is 
0280120U0080. 

If there is a symbol in the aame field 
of the DCCW instruction, it is assigned the 
address value of the leftmost byte of the 
channel command word. The length attribute 
of the symbol is six. 

Program Sectioning and Linking 
Instructions 

It is often convenient, or necessary, to 
write a large program in sections. The 
sections may be assembled separately and 
then combined into one object program. The 
Assembler provides facilities for creating 
multi-section programs and symbolically 
linking separately assembled program 
sections. 

Program sectioning and linking is close- 
ly related to the specification of base 
registers for each control section. Sec- 
tioning and linking examples are given 
under CSECT -3 Identify Cont rol Section and 
Addressing An Ext ernal Contr ol Sec tion . 



CONTROL SECTIONS 

A control section is the smallest logical 
unit of a program. All elements of a con- 
trol section are in a constant relationship 
to each other. Therefore, the control sec- 
tion is the smallest separately relocatable 
unit of a program. If a program is sec- 
tioned, it must be written so that control 
passes properly from one control section z.o 
another, regardless of the position of the 
control section in main storage. 

A program is divided into control sec- 
tions if it is to be assembled in several 
parts. (Program parts assembled at one 
time are often called an assembly.) In a 
multi-section program,, each control section 
must be complete. An unsectioned program 
is considered a single control section. 

Since you have described storage symbol- 
ically you know what eventually will be 
entered into storage, regardless of whether 
you write an unsectioned program, a multi- 
section program, or part of a multi-section 
program but you will, most likely, not know 
where in storage a section appears. There 
is no constant relatioship between indivi- 
dual control sections. Thus, knowing the 
location of one control section does not 
make another control section addressable hy 
relative addressing. 

The output of the Assembler consists of 
the assembled control sections, an External 
Symbol Dictionary and a Relocation 
Dictionary, 



The External Symbol Dictionary contains 
information the Linkage Editor program 
needs to complete cross-referencing between 
control sections as it combines them into 
one object program. The Linkage Editor 
program can take control sections from 
various assemblies and combine them proper- 
ly with the help of the corresponding 
External Symbol Dictionaries. Successful 
combination of separately assembled control 
sections depends on the techniques used to 
provide symbolic linkages between the con- 
trol sections. This is described in the 
sections below describing the CSECT, ENTRY, 
and EXTRN instructions. 



The Relocation Dictionary contaxns 
information about certain address constants 
(see DC-instruction) which must be updated 
by the Linkage Editor Program when a con- 
trol section is relocated. 



START — START ASSEMBLY 

The START instruction may be used to give a 
name and starting address to the first (or 
only) control section of an assembly. The 
START instruction may be preceded only by 
AWORK, AOPTN (in this order) , ICTL, ISEQ, 
REPRO, EJECT, SPACE, PRINT, TITLE instruc- 
tions, and comments statements. There must 
be only one START instruction in an 
assembly. 

The format of the START instruction is 
as follows: 



r 1 T 1 

I Name | Operation | Operand | 

^ + ^ i, 

jA symbol | START \A self- defining | 
I or blank | | term or blank | 
L X 1 J 



The External Symbol Dictionary is con- 
tained in the ESD-cards in front of the 
object deck. The Relocation Dictionary is 
contained in the RLD-cards mingled with the 
TXT- cards. 

The Linkage Editor program assigns loca- 
tions to control sections in such a way 
that the sections are placed. in storage 
consecutively, in the same order as they 
occur in the program. Each control section 
subsequent to the first begins at the next 
available half-word boundary. 

A control section is normally identified 
by the CSECT instruction. However, if it 
is desired to specify a tentative starting 
address, the START instruction may be used 
to identify the first control section of an 
assembly. 

The first control section of an assembly 
has the following special properties. 

1. Its tentative starting location may be 
specified as an absolute value. 

2. It normally contains the literals 
requested in the program,, although 
their positioning can be altered. For 
further explanation on positioning of 
literals see the discussion of the 
LTORG instruction. 



Limitations 

The combined number of control sections and 
dummy sections (see Dummy Control Sections) 
for an assembly must not exceed eight. The 
combined number of control sections and 
dummy sections plus the number of unique 
symbols in EXTRN statements for an assembly 
must not exceed 31. A maximum number of 20 
ENTRY instructions can be processed in a 
single assembly. 



If a symbol names the STAR! instruction, 
the symbol is established as the name of 
the control section. If not, the control 
section is considered to be unnamed. All 
subsequent statements are assembled as part 
of that control section- This continues 
until a CSECT instruction identifying the 
beginning of the next control section or a 
DSECT instruction is encountered, 

A CSECT instruction named by the same 
symbol that names a START instruction is 
invalid. An unnamed CSECT instruction that 
occurs in a program initiated by an unnamed 
START instruction is also invalid. 

The symbol in the name field is a valid 
relocatable symbol whose value represents 
the address of the first byte of the con- 
trol section. It has a length attribute of 
one. 

The Assembler uses the self-defining 
value specified by the operand as the 
starting location of the first control sec- 
tion. This value must be divisible by two. 
For example, either of the following state- 
ments could be used to assign the name 
PR0G2 to the first control section and to 
indicate an initial assembly locatioi^ of 
2040: 

r 1 T 1 

I Name | Operation [Operand | 

|. 1 1 _ ^ 

IPR0G2 I START J2040 | 

|PR0G2 I START |X'7F8' | 

L J. 1 J 



If the operand in a START instruction is 
blank, the Assembler checks if NORLD is 
specified as the operand of an AOPTN 
instruction, provided such an instruction 
is given. If WORLD is not specified,, the 
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Assembler assumes that the program shall be 
relocatable and sets the starting address 
to zero. If it is specified, the ?^sseitibler 
regards the program as not relocatable and 
sets the starting address to the address of 
the first available halfword behind the 
Monitor. 



r T T 1 

I Name | Operation! Operand | 

^ 1 ^ .__ ^ 

SECTl I START I 



i BA3R 
USING 



*,10 



If you omit the START instruction, the 
Assembler assumes one ivith blank name and 
operand fields. 



Al 



USIiSlG 

LH 

MVC 



SECT 2, 11 
ll,=y(SECT2) 

FIELDl, field: 



CSECT — IDENTIFY CONTROL SECTION 



I ^tr^T^T*^ I «-» « /-« nri 1 ^ o 

j uoj-Lio I obLlo, XZ 

Bl ILH 1 12, =y (SECT 3) 

CLC |FIELD1,FIELD3 



The CSECT instruction identifies the begin- 
ning of a control section. The format of 
the CSECT instruction is as fellows: 



r — T T 1 

I Name | Operation | Operand | 

|. + ^__ ^ 

I A symbol | CSECT | Blank; or a com- | 
jor blank | | ment preceded by | 
I I I a comma. j 

L i J. J 



FIELDl 
****** 

SECT 2 
BE32 



A2 



DS 
****SECOND| 
CSECT 
BASR 
USING 



USING 

LH 

MVC 



H 

CONTROL SECTION********* 

11,0 
*,11 



FIELDl, 10 
J10,=Y(FIELD1) 
FIELD2;, FIELDl 



The symbol that names the CSECT instruc- 
tion is the name of the control section; a 
blank indicates an unnamed section. All 
statements following the CSECT instruction 
are assembled as part of that control sec- 
tion until a statement identifying the 
beginning of the next control section 
(i.e., another CSECT or a DSECT instruc- 
tion) is encountered. 



B2 



FIELD2i 
♦ **♦♦ *i 

SECT3 
BEG3 



USING 

LH 

CLC 



DS 

***THIRD 

CSECT 

BASR 

USING 



FIELDS^, 12 
12,=Y(FIELD3) 
FIELD2,, FIELDS 



H 



CONTROL SECTION********** 

12,0 
*,12 



The symbol in the name field is a valid 
relocatable symbol i*hose value represents 
the address of the first byte of the con- 
trol section. It has a length attribute of 
one. Only one CSECT statement with the 
same name is permitted within a program. 



If you wish to use a symbol defined in 
one control section as an operand in anoth- 
er of the same assembly, you must write a 
USING instruction telling the Assembler 
which register to use as the base register 
for that control section. The unpaired 
term in the operand v in the USING instruc- 
tion (see USI NG — .UsQ Base Address Regist- 
er ) must be defined in that same control 
section. 



A3 



B3 



USING 

LH 
MVC 



USING 

LH 

CLC 



FIELD3IDS 



END 



BEG1 + B1-M,10 
10,=Y(BEG1+B1-A1) 
FIELDS, FIELDl 



BEG2+B2-A2,11 

11„=Y(BEG2+B2-A2) 

FIELD3,FIELD2 



END OF PROGRAM 



L J. X. J 

Figure 8, Example of a Multi-Section 
Program 



An additional USING instruction is 
needed because a CSECT instruction causes 
the Assembler to disregard all previous 
USING instructions of the same assembly. 
Figure 8 illustrates these rules. 



The MVC instruction in the control sec- 
tion named SECTl uses FIELD2 as an operand 
and the CLC instruction uses FIELD3 as an 
operand. Both FIELD2 and FIELDS are not 
defined in control section SECTl. There- 
fore a USING statement must be issued prior 



to using each symbol as an operand. USING 
SECT2,11 tells the Assembler that a symbcl 
defined in SECT2 will be used and that its 
base register is 11. Likewise, USING 
SECT3i, 12 tells that a symbol defined in 
SECT3 will be used and that its base 
register is register 12. 

In the control section named SECT2 the 
instruction USING FIELD1,10 tells the 
Assembler to use register 10 as base 
register to address control section SECTl 
since FIELDl is defined in that control 
section. The assumed base address is the 
address of the instruction named FIELDl. 

In the control section named SECT3,, to 
use a different method, the instruction 
USING BEG2+B2-A2»11 tells the Assembler to 
use register 11 as base register to address 
control section SECT2 because the unpaired 
term BEG2 is defined in that control sec- 
tion. The assumed base address is the 
value of the expression BEG2+B2-A2, 

The statements named A1,B1„A2,B2, and 
AB^BB load the base register specified in 
the respective USING statements immediately 
preceding each statement with the address 
of the first operand in each USING 
statement. 



Unnamed Control Section 

If neither a named CSECT instruction nor a 
named START instruction appears at the 
beginning of the program, the Assembler 
determines that it is to assemble an 
unnamed control sect;ion as the first (or 
only) control section. Only one unnamed 
control section is permitted in a program. 
If you write a small program that is unsec- 
tioned, you need not use a CSECT 
instruction. 



DUMMY CONTROL SECTIONS 

A dummy control section is not part of the 
object program; it only serves to describe 
the layout of an area of storage without 
actually reserving storage. (It is assumed 
that the storage is reserved by another 
assembly) . 



DSECT — IDENTIFY DUMMY SECTION 

The DSECT instruction identifies the begin- 
ning of a dummy section. More than one 
dummy section may be defined per assembly, 
but each must be named. The format of the 
DSECT instruction is as follows: 



r 1 T ■ 

{Name [Operation | Operand 

J. + :. ^ ^ 

jA symbol | DSECT | Blank; or a corr- ! 
I I I ment preceded by ! 

I I I a comma. j 

L_ . J. X { 

The symbol in the name field must be a 
valid relocatable symbol whose value repre- 
sents the first byte of the dummy section. 
It has a length attribute of one. 

Symbols that appear in the name fieia of 
a DSECT instruction or in the name field of 
an instruction in a dummy section may be 
used in USING instructions. Therefore, 
they may be used in program elements (e.g., 
machine instructions and data definitions) 
that specify storage addresses. An example 
illustrating the use of a dummy section 
appears under Addressing Dum my Se ctions. 

A symbol that names a statement in a 
dummy section may be used in an address 
constant (see DC instruction) only if it is 
paired with another symbol (with the oppo- 
site sign) from the same dummy section. 

Dummy-Sectio n Location Assignment 

A location counter is used to determine the 
relative locations of named program ele- 
ments in a dummy section. The location 
counter is always set to zero at the begin- 
ning of the dummy section, and the locatior 
values assigned to symbols that name state- 
ments in the dummy section aire relative to 
the initial statement in the section. 

Addressing Dummy Sect ions 

Suppose you wish to describe the format of 
an area whose storage location will not be 
determined until the program is executed. 
You describe the format of the area in a 
dummy control section and use symbols 
defined in the dummy section as the 
operands of machine instructions. To 
reference the storage area, you must: 

1. Provide a USI^IG instruction specifying 
both a general register that the 
Assembler can assign to the machine 
instructions as a base register and an 
address value from the dummy section 
that the Assembler may assume the 
register contains- 

2. Ensure that the same register is loade: 
with the actual address of the storage 
area. 

Because the location counter is set to 
zero at the beginning of the dummy control 
section, the values assigned to symbols 
defined in a dummy control section are 
relative to the initial statement of that 
section. Thus, all machine instructions 
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referring to names defined in the duinniy 

section will, at execution time, refer to 

storage locations relative to the address 
loaded into the register. 

hn example is shown in the following 
coding. Assume that two independent assem- 
blies (assembly 1 and assembly 2) have been 
loaded and are to be executed as a single- 
overall program. Assembly 1 is an input 
routine that places a record into a speci- 
fied area of storage, places the address of 
the input area containing the record into 
general register 13, and branches to 
assembly 2* Assembly 2 processes the 
record. The coding shown in the example is 
from assembly 2. 



Name 



■T r 

[Operation | Operand 



1 ASMBLY2 


START 


i BEGIN 


BASR 




USING 




USING 




CLI 




BE 


1 ATYPE 


• 

MVC 




MVC 

• 


1 WORK A 


• 

DS 


1 WORKS 


DS 


lAREA 


• 

DSECT 


jCODE 


DS 


jPUTA 


DS 


|PUTB 


DS 




• 

END 





12,0 

*,12 



AREA, 13 
CODE, C A' 
I ATYPE 



WORKA,, PUT A 
WORK B, PUT B 



CL20 
I CLI 8 



CLI 
|CL20 
CL18 



SYMBOLIC LINKAGES 

Symbols may be defined in one assembly and 
referred to in another, thus allowing sym- 
bolic linkages between independently 
assembled sections. Linkages are only 
possible if the Assembler is able to pro- 
vide information about the externally 
defined symbols to the Liakage Editor, 
which resolves these symbols into 
addresses. The Assembler places the neces- 
sary information into the External Symbol 
Dictionary if the particular symbols are 
specified in the ENTRY and EXTRN instruc- 
tions. Symbolic linkages are described as 
linkages between independent assemblies; 
more specifically, they are linkages 
between independently assembled coni-rol 
sections. 



In the program where the linkage symbol 
is defined (i.e.,, used as a name), it must 
also be identified to the Asseiibler by 
means of the ENTRY Assembler instruction, 
except when the symbol appears in the name 
field of a START or CSECT instruction. It 
is identified as a symbol that names an 
entry point, which means that another pro- 
gram will use that symbol in order to 
effect a branch operation or a data 
reference. The Assembler places this 
information in the External Symbol 
Dictionary. 



Similarly, the program that uses a sym- 
bol defined in some other program must 
identify it by the EXTRN Assembler instruc- 
tion. It is identified as an externally 
defined symbol (i.e. , defined in another 
program) that is used to effect linkage to 
the point of definition. The Assembler 
places this information into the External 
Symbol Dictionary. 



t — _„, 



The input area is described in assembly 
2 by the dummy control section named AREA. 
Fields of the input area that are to be 
processed are named in the dummy control 
section as shown. The Assembler instruc- 
tion USING AREA, 13 designates general 
register 13 as the base register to be used 
in addressing the DSECT control section and 
indicates that general register 13 is 
assumed to contain the address of AREA. 

Assembly 1, d^aring execution, loads the 
actual beginning address of the input area 
into general register 13. Because the sym- 
bols used in the DSECT section are defined 
relative to the initial statement in the 
section, the address values they represent 
willf, at the time of program execution, be 
the actual storage locations of the input 
area. 



ENTRY — IDENTIFY ENTRY-POINT SYMBOL 

The ENTRY instruction identifies a linkage 
symbol that is defined in one assembly but 
may be used in another assembly. An ENTRY 
instruction must not appear in an unnamed 
control section or in a dummy section. The 
format of the ENTRY instruction is as 
follows : 



r T 

I Name | Operation 

I Blank I ENTRY 



L_. 



T 1 

I Operand | 

I A relocatable j 

I symbol that also | 

I appears as a state- \ 

! ment name j 



The symbol in the ENTRY operand field 
may be used in the operand field of 
instructions in other assemblies. The sym- 
bol in the operand field must not be 
defined in an unnamed control section or in 
a dummy control section. The following 
example identifies the statements named 
SINE and COSINE as entry points to the 
assembly. 



r T T ' 1 

I Name | Operation | Operand | 

1. + + ^ 

I I ENTRY I SINE | 

I I ENTRY I COSINE | 

L X X J 



r T T ^-1 

I Name | Operation [ Operand | 

y + 1 ^ 

I I EXTRN I RAIErBL j 

I I EXTRN 1 PAYC^LC | 

I I EXTRN I WITHCALC | 

L_ i. J , . J 



External symbols should be used only in 
address constants. But if you do wish to 
use an external symbol in a machine 
instruction, you must write an USIN3 state- 
ment before using the symbol as an operand 
as illustrated in the following example: 



Note; The name of a control section need 
not be identified by an ENTRY instruction 
when another assembly uses it as an entry 
point. The Assembler automatically places 
information on control section names in the 
External Symbol Dictionary. 



Limitation; A maximum of 2 ENTRY state- 
ments can be processed in a single 
assembly. 



r T T 

j Name | Operation | Operand 
!-_ 1 . — ^ 

EXTRN I FIELD 



LH 
USING 

CH 



8,YFIELD 
FIELD, 8 
9, FIELD 



EXTRN — IDENTIFY EXTERNAL SYMBOL 

The EXTRN instruction identifies a linkage 
symbol that is used in this assembly but 
defined in some other assembly. Each lin- 
kage symbol must be identified, even sym- 
bols that name external control sections. 
The format of the EXTRN instruction is as 
follows; 



lYFIELDlDC 



Y( FIELD) 



I 

I 
L X 1 J 



An example that employs the EXTRN 
instruction appears under Address ing_An 
External Control Section. 



r T T 1 

iName | Operation \ Operand | 

I. ^ 1 ^ 

I Blank I EXTRN I A relocatable | 
1 j I symbol | 

L X i J 



The symbol in the operand field must not 
appear as the name of a statement in this 
assembly. 



Limitation; The combined number of control 
sections, dummy sections, and symbols spe- 
cified in EXTRN instructions must not 
exceed 31 for one assembly. 



The following example identifies three 
external symbols that have been used as 
operands in this assembly but are defined 
in some other assembly. 



ADDRESSING AN EXTERNAL CONTROL SECTION 

To link a program to a control section in a 
different assembly, proceed as follows: 

1. Identify the external symbol with the 
EXTRN instruction, and create an 
address constant from the symbol. 

2. Load the constant into a general 
register, and use the register for base 
addressing or branch to the section via 
the register. 



Figure 9 shows the coding that might be 
used to incorporate a subroutine named SUB- 
ROUT (which is an external control sec- 
tion) , to branch to this subroutine, and to 
branch back to the main prog ran. 
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r T T 1 

I NaME I OPERATION ' OPERZ^^ND ?VND COMMENTS i 

!._::: — |.::::::::i_]._:i:::::__i _ ^ 

I MA TranDrkn i c?TAPT 



BEGIN 



I BASR 
i USING 



I 12,0 
i * . 1 2 



STORE INSTRUCTION COUNTER INTO R12 

USE R12 FOR ADDRESSING THE M?^IN PROGRAM 



EXTRN 



SUBROUT 



DEFINE SUBEOUT AS NAME OF EXTERNAL SECTION 



CALLSUBR 



BASR 



11.10 



LOAD ADDRESS OF EXTliKNAL SECriON INTO RlO 
BRANCH TO SUBROUT 



SUB?^DDR 



DC 
END 



Y ( SUBROUT) 
BEGIN 



ADDRESS OF EXTERNAL SECTION 
BRANCH TO BEGIN 



L i X J 



■T T 

I OPERATION I OPERAND AND COMMENTS 



NAME 



|.__^ + + 

SUBROUT I CSECT 

I USING i *»10 



CONTROL SECTION EXTERNAL TO MAIN PROGRAM 



BR 
END 



11 



RETURN TO INSTRUCTION FOLLOWING CALLSUBR 



L X X J 



Figure 9. Addressing an External Control Section 



Bate Register Instzuction Statements 

USING — USE BASE ADDRESS REGISTER 

By means of the USING instruction you tell 
the assembler 

• which pseudo registers CO through 7) or 
which general registers (8 through 15) 
are available as base registers for 
implicit addressing; 

• for which control section such a base 
register is available; 

• what value the register! s) will contain 
at object time. 

A USING instruction does not load the 
registers specified. It is your responsi- 
bility to ensure that the specified base 
address values are placed into the regis- 
ters (see the BASR instruction). ft.n 
example follows the description of the DROP 
instruction* 

A USING instruction has effect only 
within the control section where it is con- 
tained andt withir that control section, it 



applies only to instructions following it 
in the program. With the beginning of a 
new control section (see CSECT and DSECT 
instructions) all previously available base 
registers are dropped automatically. You 
must use at least one USING instruction for 
each control section you want to address. 



The format of the USING instruction is; 



r T 1 — ■ 1 

[Name | Operation] Operand | 

Y + + ^ 

|Blank|USING I v,ri„r2i,r3,r4 | 

L X X J 

Operands v and r^ are mandatory. 
Operands Xz, ra, and r^ are optional. 

Operand v must be a relocatable expres- 
sion. It specifies a value that the 
Assembler can use as a base address. The 
unpaired relocatable term of this expres- 
sion refers to that control section for 
which base register (s) are to be made 
available by this instruction. No literals 
are permitted. 
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The operands r±, Tzm ^3, rn must be 
absolute expressions , whose value must be 
between and 15. Operand r^ specifies the 
register that can be assumed to contain the 
base address represented by the operand v. 
Operands Xzm 1^3, and r specify registers 
that can be assumed to contain V+U096, v+ 
8192,, v+12288w respectively. For example, 
the statement: 

r T — T ^ 

I Name j Operation [Operand | 

|. +- + _ ^ 

I I USING |*,8„9 I 

L i X J 

tells the Assembler to assume that at 
object time the current value of the loca- 
tion counter (indicated by the *) will be 
in general register 8, and that the current 
value of the Location Counter, incremented 
by 4 096,, will be in general register 9. 

The registers r^, ra, r3, r^^. address 
that control section where the unpaired 
term of the expression v is defined. For 
an example see the section Program Section- 
ing and Linking Instru ctions. Thus,, if you 
want to address two different control sec- 
tions you must use two USING instructions. 

If you change the value in a base 
register currently used ^nd wish the 
Assembler to compute displacements from 
this value, you must tell the Assembler the 
new value by means of another USING state- 
ment. In the following sequence the 
Assembler first assumes that the value of 
ALPHA is in register 9. The second state- 
ment then causes the Assembler to assume 
that ALPHA+1000 is the value in register 9. 

P ^ ^1 ^ 

jName | Operation | Operand \ 

^ 1 1 ^ 

I I USING I ALPHA, 9 \ 



if a base register is available for that 
control section {i«e. if you issaed a 
USING instruction) . 



If a base register is available, the 
assembler determines, in order to get a 
positive displacement,, whether or not the 
base address value to be assumed for this 
register (see USING instruction) is lower 
than or equal to the storage address to be 
separated. The difference between the base 
address and the storage address must not 
exceed 4095 (hexadecimal FFF) ,, because 
exactly three halfbytes are reserved in an 
instruction to hold the displacement 
specification. 

If more than one base register satisfies 
the above condition, the assembler will 
always choose the one giving the smallest 
displacement. If more than one register 
gives the same displacement, the numerical- 
ly highest register will be chosen. 

USING instructions may specify the pseu- 
do registers through 7 as base registers. 
This is referred to as direct addressing. 
In this case, the object program caanot be 
relocated by the Linkage Editor Program 
because the Linkage Editor Program does not 
update a direct address in the operand of a 
machine instruction. 

The Assembler assumes fixed contents for 
pseudo base registers as shown in the fol- 
lowing list: 



Register 

1 
2 
3 
4 
5 
6 
7 



Contents 



4„096 

8,192 

12„288 

16,384 

20,4 80 

24,576 

28,672 



1 USING 



1 ALPHA+1000, 9 
-i 



If you wish to use more than four regis- 
ters as base registers to address one con- 
trol section you must use two or more USING 
instructions. 

Whenever a storage location is specified 
by a relocatable expression in an operand 
of a machine instruction,,, the Assembler 
checks for an available base register to 
separate the storage address into a base 
address value and a displacement value. To 
this end the assembler determines: 

• which control section the relocatable 
expression refers to (i.e. in which con- 
trol section the unpaired relocatable 
term of the expression is defined) ; 



The Assembler always uses these values. 
However, a check is performed to determine 
whether the expression v matches the con- 
tents of the pseudo base register referred 
to, and a warning is issued if they do not 
match. Unlike the general registers 8 
through 15, the pseudo registers need not 
be loaded in a program. 

You may make the object program relocat- 
able (referred to as indirect addressing) 
at some future time by making the following 
changes in the source program and reas- 
sembling it: 

1. Replacing pseudo registers in the 
USING statement by general registers. 

2. Loading the new specified base regis- 
ters with a relocatable value. 
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The p;:ea(a<,) registers must not be used as 
register 1 tor working with data. 



DROP — DROP BRSE REGISTER 



r — T T 

jName (Operation j Operand 

I BEGIN IBASR |12,0 
I I USING I ♦,12 






The OROP instruction soecifies a oreviouslv 
available register that tnust no longer be 
used as e. base register. The format of the 
DROP instruction is as follows: 

,_. .^_, J ^ 

! i:^an!€ jOperation [Operand | 

V + + ^ 

IB lank I DROP | Up to four absolute | 
\ \ [expressions of the | 

! I I form ri,r2,r3,ri, j 

( JL X J 

Operand r^L is mandatory,, operands x^, 
r3, and r are optional. rx» r2# ra, and 
tu are absolute expressions indicating 
registers previously named in a USING sta- 
tement and are now unavailable for implicit 
addressing. The following statement, for 
example, prevents the Assembler from using 
registers 9 and 11: 

J. ^ ^ ^ 

[Name [Operation [Operand [ 

j. + ^ ^ 

I (DROP [9,11 [ 

L X X J 

If (liore than four registers are to be 
;rade unavailable for base addressing, two 
or more DROP instructions must be issued. 

It is njt necessary to use a DROP state- 
rrent before the bace address in a register 
is changed by a USING statement; nor are 
DROP statements needed at the end of a 
source prograoi. 

A register made unavailable by a DROP 
instruction can be made available again by 
a subsequent USING instruction. 



PROGRAMMING EXAMPLE 



In the f 

instruct 

address 

d lately 

instruct 

instruct 

register 

instruct 

X. V* '•* ryr* T t,T 
ufJC UOXLH 

low the 
or load 
location 
FIRST. 



oliowlng sequence, the BASR 

ion loads register 12 with the 

of the first storage location imme- 

follcwing. In this case, it is the 

ion named FIRST. The USING 

ion indicates to the Assembler that 

12 contains the address of this 
ion. When you employ this method, 
3 instruction must immediately fcl- 
BASR instruction. No other USING 
instructions are required if the 

named LAST is within 4095 bytes of 



I LAST ! * 
j j END 
L X 



[BEGIN 
-X 



In the following example, the BASR and 
LH instructions load registers 12-15. The 



}SING xnst ruction 



^. ' .'-= ■¥■ ocj ■i-'^. i-y-. 



JLII vjxv^ct «_»: 



^'-'-cimKI 



i^sJ cue rtooc:iiii-/x" 



er that these registers are available as 
base registers for addressing a maximum of 
16,384 consecutive bytes of storage, begin- 
ning with the location named HERE. The 
number of addressable bytes may be 
increased or decreased by altering the 
number of registers designated by the USING 
and LH instructions and the number of 
address constants specified in the DC 
instructions. 



Name 



-T 1 

I Operation [ Operand 



BEGIN 


BASR 




USING 


HERE 


LH 




LH 




LH 




B 


BASEADDR 


DC 




DC 




DC 



FIRST 



LAST 



END 



12,0 

HERE, 12, 13, 14, 15 

13, BASEADDR 

14,BASEADDR+2 

15,BASEADDR+4 

FIRST 

Y(HERE+4096) 

^(HERE+8192) 

Y(HERE+12288) 



BEGIN 



Restrictionson Reqister_Usaqe 



Registers 8, 9, 10, 14, and 
uses and are available to yo 
certain conditions. Registe 
the DPS IOCS. Registers 8, 
used by the FETCH routine, 
used by the LOAD routine. N 
FETCH routine nor the IOCS n 
routine save the contents of 
ters prior to using them. I 
registers you must save thei 
restore them later) or be fi 
them before the FETCH routin 
use of the registers. 



15 have special 
u only under 
r 9 is used by 
14, and 15 are 
Register 10 is 
either the 
or the LOAD 

these regis- 
f you use these 
r contents (and 
nished with 
e or IOCS make 



If you use lOCS-routines and Specify a 
DTFEN overlay you must issue a new USING 10 
after each OPEN and CLOSE instruction, 
because a DROP 10 instruction is given 
within the OPEN/CLOSE routine- For further 
details see the SRL publications 



IBM System/360 Mo del 20, Tape Prograngming 

System ^ Input/Output Control System, Form 

GC24-9003, 

IBM Svstem/36 Mo d el 2 0, Disk ProgramiTiinq 

System , Input/Output Control System, Form 

GC24-9007. 



ment causes the listing to be advanced to a 
new page (before the heading is printed) . 

For example, if the following statement 
is the first TITLE statement to appear in a 
program, and it appears before the START 
statement: 



then PGMl is punched into all of the output 
cards (columns 73-76), except those pro- 
duced by a REPRO statement, and the heading 
FIRST HEADING appears at the top of each 
page that follows it. 



Registers 11-13 are available to you 
without any restriction. You will, as a 
matter of fact, decrease the possibility of 
errors if you try to use only these three 
registers. However, if there is a shortage 
of registers all general registers 8 

through 15 are available to you under the r t t ^ 

restrictions stated above. | Name | Operation | Operand | 

1. 1 1 ^ 

I PGMl [TITLE 1' FIRST HEADING' | 
L X i J 

Listing— Control Instruction Statements 

If the following statement: 
The listing-control instructions are used 

to identify an assembly listing and asseirb- p -| 1 -i 

ly output cards, to provide blank lines or jName | Operation j Operand | 

skip pages in an assembly listing, and to j- ■- — -j- i -j 

designate how much detail is to be included j J TITLE |'A NEW HEADING' | 

in an assembly listing. In no case are l ^ -L J 

instructions or constants generated in the 
object program. 



TITLE — IDENTIFY ASSEMBLY OUTPUT 



occurs later in the program, PGMl is still 
punched into the output cards, but each 
following page begins with the heading: A 
NEW HEADING. 



The TITLE instruction enables you to iden- 
tify the assembly listing and assembly out- 
put cards. The format of the TITLE 
instruction is as follows: 

r T T 1 

I Name | Operation | Operand | 

|. 1 + ^ 

I Name [TITLE |A sequence of char- | 
I or j jacters, enclosed in j 
[blank j (apostrophes ( 

L J X J 

If the first TITLE statement in a pro- 
gram appears before the START statement, it 
may contain an entry in the name field. 
This entry may contain one to four alpha- 
betic or numeric characters in any combina- 
tion. Any additional characters are 
ignored. The contents of the name field 
are punched into columns 73-76 of all the 
output cards for the program, except in 
cards produced by means of a REPRO Assembl- 
er instruction. Subsequent TITLE state- 
ments must not contain a name entry. 

The operand field of a TITLE statement 
may contain up to 62 characters enclosed in 
apostrophes. The contents of the operand 
field are printed at the top of each page 
of the assembly listing that follows it, 
until another TITLE statement is encoun- 
tered. The TITLE statement itself does not 
appear in the source listing unless it is 
found to be incorrect. Each TITLE state- 



EJECT — START NEW PAGE 

The EJECT instruction affects only the 
assembly listing and provides a convenient 
way to separate program routines in the 
listing. This instruction causes the 
remainder of the present page to be skipped 
and the listing to continue at the top of 
the next page, below the heading line. If 
the line preceding the EJECT statement 
appears at the bottom of a page, the EJECT 
has no effect. 

If two or more EJECT instructions are 
issued in succession, a complete page is 
skipped for each EJECT instruction after 
the first and the listing continues on the 
page that is in printing position after the 
last EJECT instruction is executed. Each 
page that is skipped is printed with a 
heading line, however. The fortiat of the 
EJECT instruction is: 

r T T 1 

I Name [Operation [Operand [ 

^ 1 1 ^ 

[Blank I EJECT [Blank; or a con- [ 
I j [ment preceded by j 
I [ [a comma . j 

L 1 X J 

The EJECT statement itself does not 
appear in the source listing. 
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SPACE -- SPACE LISTING 

The SPACE instruction is used to insert cne 
or more blank lines in the listing. The 
forTiat of the SPACE instruction is as 
follows : 



r T T -- 

i Name j Operation j operand 



NOGPIN 



i- + 

[Blank I SPACE 






-1 

I A decimal value up to| 
j56, or blank j 



A decimal value is used to specify the 
number of blank lines to be inserted in the 
assembly listing. A blank operand causes 
one blank line to be inserted. If the spe- 
cified value exceeds the number of lines 
remaining on the listing page, the state- 
ment will have the same effect as an EJECT 
statement. The SPACE statement itself does 
not appear in the source listing, unless it 
is found to be incorrect. 



DATA 



St- a-|-p>m(=«n1-c; rrono-r:a+-pr^ hv V.RCTCC) 

instructions are not printed. 
Ho«ever, oue inacro iiistruc<-ion 
itself and messages resulting 
from the MNOrE instruction, if 
used, will appear ia the list- 
ing. (The MNOrE instruction is 
described under MNOrE_--_Reg;uest 

instruction that contains one or 
more Assembler- detected errors 
is also printed along with the 
appropriate dxaguostic 
message(s) . 



Constants are fully printed out 
in the listing. 

Only the first eight bytes (16 
hexadecirnal di'^its) Df the 
assembled data are printed in 
the listing. 



The SPACE instruction in the following 
example would cause three blank lines to 
appear in your source listing between the 
add instruction and the move instruction. 



A program may contain any number of 
PRINT statements. The condition set by a 
print statement remains in effect until 
another PRINT statement is encountered. 



r T T 1 

I Name | Operation | Operand | 

|. 4. 1 4 

I |MVC I HALF, OLD | 

I j SPACE I 3 I 

I I AH i 15, HALF | 

L 1 X J 



PRINT — PRINT OPTIONAL DATA 

The PRINT instruction is used to control 
printing of the assembly listing. The for- 
mat of the PRINT instruction is: 

P ^ ^ ^ 

j Name j Operation | Operand | 

I- ^ 1 4 

[Blank [PRINT I One to three operands] 

L , 4 ..^ X „ ^ i 

Up to three operands may be used, that 
is, one out of each of the following groups; 
OFF or ON, GEN or NOGEN, DATA or NODATA. 

OFF - No listing is printed. No 

execution of listing-control 

ON - A listing is printed. 



GEN - All statements generated by 

macro instructions are printed. 



If an operand is omitted, its specifica- 
tion is assumed to remain in effect. If 
OFF is specified, GEN and DATA have no 
effect. If NOGEN is specified, DATA has no 
effect for generated DC instructions. 

Until the first PRINT statement (if any) 
is encounterel, the Assembler assumes that 
a PRINT instruction with the operands ON, 
NODATA, and GEN was given. 

For example, if the statement DC 
XL32'00' appears in a program, 32 bytes of 
zeros are assembled. If the statement: 

r T T 1 

I Name | Operation | Operand | 

^ ^. 1 ^ 

I [PRINT I DATA | 

L X X J 

is the last PRINT statement to appear 
before the DC statement, all 32 bytes of 
zeros are printed in the assenably listing. 
However, if: 

r T T 1 

[Name [Operation [Operand | 

^ 1 ^ _ 4 

] I PRINT i NuuAi'A I 

L X X J 

is the last PRIDIT statement to appear 
before the DC statement, only eight bytes 
of zeros are printed in the assembly 
listinas 



6^ 



Program— Structure Control 
Instructions 

The program- structure control instructions 
are used to influence the structure of the 
program to be assembled. 

REPRO — REPRODUCE FOLLOWING STATEMENT 

The output of the Assembler program may be 
processed by the Linkage Editor program or 
the CMAINT program. Both programs require 
a socalled PHASE statement for operation. 
This statement must be included in the 
assembler output (the object deck). (See 
the SRL publication. Contro l and S ervice 
Programs, Form GC24-9006) .''instead of wait- 
ing until you have the object deck, and 
then manually inserting the PHASE card, you 
may include it in your source deck if you 
use a REPRO statement immediately preceding 
the PHASE card. 



The REPRO Assembler instruction causes 
the Assembler to punch a duplicate of any 
card immediately following the REPRO 
instruction. The punched cards resulting 
from REPRO instructions appear at the same 
point in the assejnbled text as they 
appeared in the source program. They are 
not, however, processed by the Assembler 
program. 



If any REPRO instructions precede the 
START instruction or the implied start 
position (if no START instruction is used) , 
the cards punched will precede the ESD 
cards for the assembly. 

The format of the REPRO Assembler 
instruction is as follows: 



r T T 1 

I Name | Operation | Operand | 

j. ^ + ^ 

I Blank I REPRO | Blank; or a com- | 

I I I ment preceded by j 

II I a comma. j 

L X X J 

The following example illustrates the 
use of the REPRO instruction statement: 



r T T 

I Name j Operation | Operand 

j. + + 



REPRO 
PHASE 
START 



PROGA,A,,X'1200' 




L X X J 



XFR — GENERATE A TRANSFER CARD 

The XFR instruction is provided to cause 
the generation of a transfer card at the 
same location the XFR instruction appears 
in the source program. 

A transfer card is used by the loader of 

the TPS Basic Monitor and the TPS or DPS 

CMAINT and Linkage Editor program to define 

the transfer point or entry point of a 
phase, or subphase. 

The format of the XFR instruction is as 
follows: 



r T T 1 

I Name j Operation j Operand | 

^ ^ ^ ^ 

I Blank I XFR I A relocatable symbol | 

L X X J 

The symbol in the operand field must 
appear within the assembly, or be previous- 
ly defined as either an entry point or an 
external symbol. 



ORG — SET LOCATION COUNTER 

The ORG instruction is used to alter the 
setting of the location counter for the 
current control section. Each ORG state- 
ment causes a new output text card to be 
started™ The format of the ORG instruction 
is: 

r T r T 

I Name ] Operation j Operand | 

[. 1 1 ^ 

I Blank. I ORG I A relocatable ex- j 
j I jpression or blank j 

L X X J 

Any symbols in the expression must have 
been previously defined. The unpaired 
relocatable symbol must be defined in the 
same control section in which the ORG sta- 
tement appears. 

The location counter is set to the value 
of the expression in the operand. If the 
operand is omitted, the location counter is 
set to a location that is one byte higher 
than the highest location assigned for the 
control section up to this point. 

An ORG instruction must not be used to 
specify a location below the beginning of 
the control section in which it appears. 
For example, the instruction: 



r T T 1 

I Name j Operation [Operand | 

j. f f ^ 

I I ORG I +-500 I 

L X J J 
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is invalid if it appears less than 500 
bytes from the beginning of the current 
control section. 

If you need to reset the locatioa count- 
er to a value that is one byte beyond the 
highest location yet assigned (in the con- 
trol section), the following instruction 
would be used: 



r T T T 

{Name [Operation | Operand | 

|__.„X^^,.„ = ^__^|_ ^ 

I |ORG I I 

L_. J. X J 



the first control section- If there are no 
LTORG statements in a prograir, all literals 
used in the program are placed at the end 
of the first control section. Under these 
circumstances, you must ensure that the 
first control section is always address- 
able. This means that the base address 
register for the first control section 
should not be changed through usage in sub- 
sequent control sections. If you do not 
wish to reserve a register for this pur- 
pose, you may place an LTORG instruction at 
the end of each contrc5l section, thereby 
ensuring that all literals appearing in 
that section are addressable. 



If previous ORG statements have reduced 
the location counter for the purpose of 
redefining a portion of the current control 
section, a new ORG instruction without an 
ooerand can then be used to terminate the 
effects of such statetnents and restore the 
Location Counter to its highest setting in 
the control section. 



LTORG — BEGIN LITERAL POOL 

The Assembler program places all literals 
encountered in a literal pool. This liter- 
al pool is automatically placed at the end 
of the first control section by the 
assembler. If you wish the literal pool to 
be placed at a different location (for 
example, when you use subphases within one 
control section) , use an LTORG instruction. 

The LTORG instruction causes all 
literals thus far encountered in the source 
program up to the LTORG statement (either 
from the beginning of the program or from a 
previous LTORG statement) to be assembled 
at appropriate boundaries starting at the 
first half word boundary following the LTORG 
statement. 

The format of the LTORG instruction is: 

r T T 1 

I Name | Operation [Operand | 

^ -_^. + ^ 

I Symbol |LTORG [Blank; or a com- [ 
I or i [ment preceded by ( 

[blank j [a comma. | 

I i j. . J 

The symbol represents the address of the 
first byte of the literal pool. It has a 
length attribute of one. 

An LTORG instruction must not be used 
within a dummy section. 

Special Addres sing Considerations : Any 
literals used after the last LTORG state- 
ment in a program are placed at the end of 



END — END ASSEMBLY 

The END instruction is required. It ends 
the assembly of a program. It may also 
designate a point in the prograii or in a 
separately assembled program to which con- 
trol may be transferred after the program 
is loaded. The END instruction must always 
be the last statement of any source 
program. 

The format of the END instruction state- 
ment is: 

r T T 1 

I Name [Operation [Operand | 

^ 1 1 ^ 

[Blank I END (A relocatable ex- | 
I j [pression or blank | 

t JL J. J 

The operand specifies the point to which 
control is to be transferred when loading 
is completed. This point is usually the 
first machine instruction in the program, 
as shown in the following sequence. 



r T T 

I Name [Operation [Operand 



f 



NAME I CSECT 
AREA IDS 
BEGIN I BASR 
[USING 



I . 

[END 
.X 



|50H 
|12,0 
I*, 12 
I 



BEGIN 



If the END Statement contains a symbolic 
address in the operand field, the Assembler 
automatically punches the transfer address 
into the END card. 

Note; If the operand contains an external 
symbol, only a single-terxi relocatable 
expression is permitted. 
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Planned Overlay Structure 



often it is desirable to divide a large 
program into several parts for execution. 
These parts are called phases. A phase may 
consist of one "head" phase and of up to 
nine subphases. 

Phases of one program may either be 
assembled together or seperately- 

A phase without subphases may consist of 
one or more control sections. If the 
object program created by the Assembler is 
to be processed by the Linkage Editor pro- 
gram,, the beginning of a phase must coin- 
cide with the beginning of a control sec- 
tion. Two parts of a phase assembled 
separately may be combined to one phase by 
the Linkage Editor Program. 

If you use the phasing technique you 
must use the FETCH or LOAD macro instruc- 
tion. Its functions (and special consi- 
derations if you use IOCS in your program) 
are described in the SRL publication IBM 
System/ 360 Model 2 0, Disk Programming Sys- 
tem, Input /Ou tput Contro l S yst em , Form 
GC2i|-9007. For information oii the Tape 
IOCS refer to the publication IBM_System/ 
360 Mod el 20 y Tape Programming System,, 
Input/Output Control System, Form 
GC24-9003. 

You must catalog a program phase in the 
core- image library under a unique name, A 
subphase can be cataloged only as part of 
its head phase. 

The CMAINT (Core-Image Maintenance) pro- 
gram is available for cataloging program 
phases in the core- image library, You can 
load the cataloged phases into main storage 
for execution, one at a time, either conse- 
cutively or seperately. If a phase con- 
sists of a head phase and one or more sub- 
phases, the first subphase can be initiated 
only by the headphase and each subsequent 
subphase by its preceding subphase. 



Overlay Using the FETCH Macro 

CODING OF PHASES WITHOUT SUBPHASES 

To code phases without subphases you must 
apply the following rules: 

• Each phase must begin with a REPRO 

instruction followed by a PHASE state- 
ment, (For the first phase in an 
assembly these two statements must pre- 
cede the START instruction) . 



• Issue a FETCH macro instruction with 
operand at the point in one phase where 
you want another phase ti.") be loaded . 
The operand of the FETCH instruction 
specifies the name of the phase to be 
loaded. 

• Each phase, except the last one in an 
assembly, must end with an XFR instruc- 
tion. The last phase must end with an 
END instruction. 

• If you use literals in your program /ou 
should issue a LTORG instruction in aacr 
phase to ensure that the literals are 
defined in the same phase in which they 
are used. 

The following example demonstrates ho,./ 
to use the phasing technique. It i^ 
assumed that a Linkage Editor run is not 
required. 



r T : r ^-- 

I Name | Operation] Operand 





REPRO 






PHASE 


FIRST, A, 4 096 




START 


4096 




USING 


*,1,2 


PHASEl 






EXITl 


FETCH 
LTORG 


SECOND 




XFR 


PHASEl 


* 


REPRO 






PHASE 


SECOND, A, 4386 




ORG 


PHA5E1+29 


PHASE2 


. 




EXIT2 


FETCH 
LTORG 


THIRD 




END 


PHA3E2 



^— 



Second Assembly 



PHASE3 



REPRO 
PHASE 
START 
USING 



END 



|THIRD,A,4336 

|4386 

I +-290,1,2 

I 

I 

IPHA3E3 



When phase SECOND is loaded it over- 
writes phase FIRST except for the first 2 90 
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bytes. These 290 bytes may be used as date 
areas or to contain subroutines or both. 
Phase THIRD is fetched by phase SECOND and 
in turn overwrites it. 



phase. If the beginning of the head 
phase coincides with the beginning of 
the assembly, these two statements must 
precede the STARr instruction. 



The next example shows an almost ident- 
ical program. Only this time the object 
program generated by the Assembler must be 
processed by the Linkage Editor program 
before it can be cataloged. 



The load address for a subphase is 
derived from the load address contained 
in the first TXT— card of this subphase. 



r — 



■T T 

j OpG j_cn^ j-\_>ii I ^^jcixciiiu 



CSECTl 
PHASEl 



EXITl 



CSECT2 



PHASE2 



EXIT2 



REPRO 

PHASE 

START 

BASR 

QSING 

LH 



FETCH 



LTORG 
XFR 

ORG 

CSECT 

REPRO 

PHASE 

BASR 

USING 



FETCFi 



END 



FIRST, S, 



12,0 

♦,12,13 

13,=Y(PHASEl+4098) 



SECOND 



PHASEl 
CSECTl+290 



SECOND, L, 290, CSECTl 

12,0 

♦,12 



THIRD 



I PHASE2 
.X- 



|.._ i. X ^ 

Second Assembly 
|. ^ ^ ^ 

j REPRO 

I PHASE 
CSECT 3 {START 
PHASE3 I BASR 

1 USING 



|THIRD,L, 0,CSECT2 

iO 

I 12, 

1*,12 



END 



PHASE3 



L I. X J 



CODING OF A PHASE WITH SUBPHASES 

To code a phase with subphases apply the 
following rules: 

• If your program must be processed by the 
Linkage Editor program before it can be 
cataloged, the head phase and the sub- 
phases must be contained in one control 
section. 

• A REPRO instruction followed by a PHASE 
statement is rei^uired only for the head 



• The head phase and the subphases must 
end with a XFR instruction. If the end 
of the last snbnhase coincides with the 
end of the assembly, this subphase must 
end with an END instruction. 

• If a Linkage Editor run is required 
before cataloging, issue a REPRO 
instruction followed by the Linkage Edi- 
tor control statement ACTION DuP prior 
to the XFR instruction of the head 
phase. This ensures that the Linkage 
Editor does not ignore all subsequent 
XFR and END instructions. 

• Issue a FETCH macro instruction without 
an operand at the point in the head and 
subphases where you want the subsquent 
subphase to be loaded into main storage. 

The following example shows how to code 
a phase with subphases. It is assuTied that 
a Linkage Editor run is not required. 



Name 


Operation 

L ^ 


Operand 
L _ _ 


BEGIN 


r 1 
REPRO 
PHASE 
STAR! 
USING 


r 

PROGR1,A,40 96 

4096 

♦,1,2,3 


EXITH 


FETCH 




* 

SUBPHl 


• 

LTORG 
XFR 

ORG 


BEGIN 
BEGIN+U098 


EXITl 


FETCH 




+ 
SUBPH2 


LTORG 
XFR 

ORG 

• 


SUBPHl 
BEGIN+4098 


EXIT2 


FETCH 






END 


SUBPH2 



In the following example a Linkage Edi- 
tor run is required before the phase can be 
cataloged. 



the load address of the phase or sab- 
phase is specified in the operand of the 
LOAD instruction. 



r T T 1 

I Name | Operation | Operand | 

|. ___+ 1 ^ 



BEGIN 



REPRO 




PHASE 


PROGRl, S,0 


START 


|0 


BASE 


11,0 


USIN3 


*,11,12 


LH 


12»=Y{BEGIN+X'1002') 



• after loading the phase or subphase, 
control is given to the next sequential 
instruction. 

An example illustrating the use of the 
LOAD macro to load a phase (without sub- 
phases) is given below. It is assumed that 
no Linkage Editor run is required. 



First assembly: 



lEXITH 



SUBPHl 



* 

SUBPH2 



FETCH 



LT0R3 
REPRO 
ACTION 
XFR 

ORG 



FETCH 



LTORG 
XFR 
REPRO 
ACTION 

ORG 



LTORG 
END 



DUP 

BEGIN 

BEGIN+X'1002* 



SUBPHl 

NODUP 

BEGIN+X'1002' 

SUBPH2 



r T T 

I Name ] Operation] Operand 





i REPRO 






1 PHASE 


ROOT, A, 40 96 




1 START 


4096 




1 USING 


*,1,2 


IROOTPH 


1 . 






ILOAD 


MODGfLEfYMOD 


|CONT 


1 . 
1 




lYMOD 


1 • 
1 . 
1 . 

lEND 





Second Assembly: 

r T T 1 

I Name | Operation] Operand | 

^ 1 1 _ _ ^ 



L i. J. J 



1 REPRO 
1 PHASE 
I START 
1 . 



I MODULE, A, 




Overlay Using the LOAD Macro 

You can use the same technique with the 
LOAD macro as with the FETCH macro. The 
LOAD macro is used to load self relocatable 
phases or subphases; it differs from the 
FETCH macro in the following two points: 



I END 
L i. J J 

When the program comes to the instruc- 
tion LOAD, it loads the phase named MODULE 
(see second assembly) to the address of 
YMOD. After the phase MODULE has been 
loaded, the program continues with the 
instruction named CONT. 



Planned Overlay Structure #69 



Macro Instructions 



The Assembler includes a macro. feature that 
can be used to reduce the amount of repeti^ 
tive coding required for general, frequent- 
ly used routines. For example, the rou- 
tines for transferring records from magnet- 
ic tape to main storage, checking for 
accuracy, an<-i \aeuj.ocrkj.ng 1.0 Outain a 3xngj.e 
record for processing are used for any log- 
ical input file on tape. Such routines 
involve many instructions that can be writ- 
ten once and, with modification, may be 
used repeatedly in any number of programs. 



The macro feature is composed of two 

H;? sir- r»;5T-+-.Q! 



1. source-program macro^instructions 



i &NAM ADD &S1, gS2, 6SUM 



I Prototype state- 
! ment- in macro 
I library 



ADD RATI, RAr2, TRAP I Example of a 
j corresponding 
I macro instruction 

j 



The example illustrates the prototype 
statement of an addition routine that could 
be used by any program to add any two terms 



.■l-r^•►-s 4-1-.C5 



! um X J 



xv/k^a I Luii, 



to add RATI to RAT2 and store the result in 
a field named TRAT. 



a macro library of pre-written flexible 
routines called macro definitions. 



A direct relationship exists between 
these two parts, i.e., a single macro 
instruction written in the source program 
is replaced, in the object program, by a 
routine taken from the macro library. The 
macro definition contained in the macro 
library consists of a series of instruc- 
tions. Thus, many instructions are 
assembled for one macro instruction. 



The same operation code is used in the 
macro instruction as in the macro defini- 
tion. Therefore, the proper routine to be 
included in the object program is found by 
matching of operation codes. 



As the instructions of a macro defini- 
tion are assembled, they can be tailored to 
fit the particular problem program by a 
substitution process. The first statement 
of a macro definition (following the macro 
head er) is the prototype statement. It 
defines the format of the macro instruction 
and contains various symbolic operands 
(called symbolic parameters) for which 
values may be substituted when the macro 
definition is used by a specific program. 



The macro instruction in the source pro- 
gram specifies the values of the symbolic 
parameters (commonly called par ameters) 
that are to be substituted in the macro 
definition when it is assem.bled. An 
example of this is : 



The parameters applicable to the specif- 
ic job are specified in the macro instruc- 
tion. The parameters are substituted for 
the symbolic parameters in the prototype 
statement when the macro routine is 
assembled. The parameters are also substi- 
tuted in all the statements that follow the 
prototype statement to actually perform the 
addition. The statements following the 
prototype statement are called model 
statements. 



r or tine aoovs aciciitxon exarriple, ti^e com' 
plete macro definition routine ifiight be: 



r 1 

MACRO I Header statement 

6 NAM ADD ^Sl , gS2 , SSaMj Prototype Btatem, 

gNAM LH 13itgSl I Model Statement 

AH 13,&S2 I Model statement 

STH 13,gSUM I Model statement 

MEND I Trailer statement 

L . J 

The g character preceding the symbolic 
name is part of the macro-language syntax 
as explained in the following sections. 

IBM provides a number of pre-written 
macro definitions and specifies the macro 
instructions you can use to call these rou- 
tines from the library. You can write your 
own macro definitions and store them in the 
macro library. 

There are two groups of IBM-supplied 
macro definitions: 

• IOCS macro definitions 

9 Monitor macro uej-imtions 
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MACRO-INSTRUCTION FORMAT 

The format of a iracro instruction in a 
source-language statement must correspond 
to the format of the prototype statement in 
the macro definition. Therefore,, the for- 
mat of the prototype statement determines 
the form in which the macro instruction 
must be written in the source program. 

The name field in the macro instruction 
may contain a name if the name field of the 
prototype statement contains a symbolic 
parameter. 

The operation field in the macro 
instruction mast contain exactly the same 
mnemonic operation code as the prototype 
statement, e.g., ADD. This may be any 
alphameric code with a maximum of five 
characters,, the first of which must be 
alphabetic. 

The operands in the operand field of a 
macro instruction must be written in the 
same format as the symbolic parameters in 
the operand field of the prototype states 
ment. Either the positional format or the 
keyword format may be used. 



POSITIONAL MACRO INSTRUCTIONS 

The format of a positional macro instruc- 
tion is as follows: 



r T T 1 

1 Name | Operation | Operand | 

J. + + _ ^ 

I A sym- I Mnemonic | Up to 49 operands, | 

I bol or I operation j separated by commas,] 

1 blank [code | in the form | 

i 1 I described below | 

L JL X : J 



If the name field of a positional proto- 
type statement contains a symbolic paramet- 
er, the name field of a positional macro 
instruction may either contain a symbol or 
be blank. If the name field is blank, the 
symbolic parameter in the macro definition 
is considered to be a null parameter. 
(Null parameters are described below,) 



If the name field of a positional macro 
definition is blank, the name field of the 
positional macro instruction should be 
blank. If an entry is present it will be 
ignored. 



If an entry is made in the name field of 
a macro instruction, the entry must conform 
to the format for a symbol, regardless of 
whether or not it will be used as a symbol 
by the macro definition. 



The operation field of a macro instruc- 
tion contains the same operation code that 
appears in the operation field of the 
corresponding prototype statement. 



The placement and order of the operands 
in a positional macro instruction is deter- 
mined by the placement and order of the 
symbolic parameters in the operand field of 
the prototype statement. 



Any combination of up to eight charac- 
ters may be used as a macro instruction 
operand if the following rules are 
observed: 

1. Apostrophes must always occur in pairs. 

2. Two apostrophes must be used to repre- 
sent one apostrophe enclosed in paired 
apostrophes. 

3. If an apostrophe is immediately pre- 
ceded by the letter L, and immediately 
followed by a letter, the apostrophe is 
not considered in determining paired 
apostrophes. 

4. Parentheses must always occur in, pairs, 
left parenthesis then right 
parenthesis. 

5. Nesting of parentheses is not 
permitted. 

6. A parenthesis that occurs between 
paired apostrophes is not considered in 
determining paired parentheses. 

7. An equal sign may occur only as the 
first character in an operand or within 
paired apostrophes. 

8. A comma indicates the end of an operand 
unless placed between paired paren- 
theses or paired apostrophes. 

9. A blank indicates the end of the 
operand field unless placed between 
paired apostrophes. 

10. Each group of consecutive ampersands 
must be of an even number. 



The following are examples of valid 
macro instruction operands: 



SYMBOL 


A+2 


123 


L'WORKAR 


* 


=H'4096' 


X'189A' 


0(2,3) 



Note; All characters are generated. 
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The following are invalid macro instruc- 
tion operands^ for the reasons stated: 

r* NAMF: Apostrophe not preceded by L 

5A.)B Single parenthesis not enc- 
losed in apostrophes 

5,(0,3) First comma not enclosed in 
parentheses or apostrophes 

(15 B) Blank does not occiir between 
paired apostrophes 

(TO, FROM) More than eight characters 

If no operand is specified for a symbol- 
ic parameter in the prototype statement, 
4-K.T^r. /•■'rxmms ^-K.^4|^ t.T^*MT 1 ^ Kstro sGioarated it from 

tne next operand must not be omitted. If 
the last operand (or operands) are omitted 
from a macro instruction, the trailing 
comma is not required. 

Any symbolic parameter for which a name 
or operand is not specified in the macro 
instruction becomes a null parameter. 

The following example shows a macro 
instruction preceded by its corresponding 
prototype statement. The third and sixth 
operands of the macro instruction in this 
example are omitted and are therefore con- 
sidered to be null parameters. 

^ ^ — . y ^ 

i Name | Operation] Operand | 

J. 1 + ^ 

i lEXMPL I &A,,SB,gC,gD,gE,,gF | 
|. f 1 ^ 

j (EXMPL I 17,* + m,,,AREA,FIELD6 j 

L X X J 

If the symbolic parameter that corres- 
ponds to a null parameter is used in a 
model statement, a null character value 
replaces the symbolic parameter in the 
generated statement. The result will be 
■che same as though the symbolic parameter 
did not appear in the statement. 

For example, the first statement below 
is a model statement containing the symbol- 
ic parameter &C . If the operand that 
corresponds to £C is omitted from the macro 
instruction, the second statement is 
generated from the model statement. 

r T T 1 

jName | Operation \ Operand ! 

|. + + ^ 

I I MVC I TH6C„rHIS | 

j. ^ 1 ^ 

i I MVC I TH,,THIS I 

L X X J 

The positional prototype statement can 
be written in a format similar to the for- 
mat used for other Assembler-language sta- 
tements. To allow for the inclusion of up 
to U9 parameters in the prototype stateirent 
:.' T macro definition, use as many con- 



tinuation cards as are required. The name 
field, if used, must begin in the begin 
column. The operation field followed by at 
least one blank must appear on the first 
card of the statement. The other rales 
are z 

1. If the parameters in the operand field 
extend up to the end colunnn and column 
»2 coni^ains a nonbxank Cuaraci-eri, i_iie 
parameters may be continued in the con- 
tinue column of the next card. A 
single parameter may be split between 
two cards. 

2. A blank following a parameter signifies 
the end of all symbolic parameters. 

3. Comments may appear after the blank 
that indicates the end of all parame- 
ters, up to and including column 71. 

As many continuation cards as are 
required may be used in a positional macro 
instruction. 

Unless changed by an ICTL instruction 
during assembly, the begin colunn for a 
macro instruction is assumed to be column 
1, the end column is assuned to be column 
71, and the continue column is assumed to 
be column 16 . 



This format 
instruction, t 
or 25,71,3 8. 
is the begin c 
end column. N 
recognized. I 
begin column i 
is column 71, 
macro instruct 



may be changed by an ICTL 
he operand of which may be 25 
If 25 is specified:, colaran 25 
olumn, and column 71 is the 
o continuation cards will be 
f 25,71,38 is specified, the 
s column 25, the end column 
and the continue column (for 
ions only) is column 38. 



KEYWORD MACRO INSTRUCTIONS 

The format of a keyword macro instruction 
is as follows: 



r T T 

I Name | Operation! Operand 



I 
^ ^ f ^ 

I A sym-| Mnemonic | Up to 49 operands, | 

I bol or I operation] separated by commas, j 

! blank j code ] in the form j 

! ] j described below. ] 

L X X J 

This format provides a direct associa- 
tion between the operands of the macro 
instruction and those of the corresponding 
prototype statement. 

The very same parameters used in the 
prototype statement are specified (without 
the 6) in the macro instruction, where they 
are equated to the value desired for the 
specific job. The parameters of a proto- 



type statement are called keywords when 
they appear without the g in a macro 
instruction followed by an equality sign. 



2. A keyifi^ord is specified in the operand 
field of a macro instruction and no 
value is associated with the keyword. 



In the following example, the first line 
shows a prototype statement, the second 
line the corresponding macro instruction. 



r T ' ■ T 

I Name | Operation | Operand 



j I CHECK I gSUM=,&DIFF= 

^ + + 

I I CHECK I DIFF=25„SUM=P^Y 
L X i 



Since the association of parameters is 
performed through the use of keywords, the 
operands in the macro instruction may 
appear in any order, arid any parameters 
that are not needed may be omitted. If an 
operand is omitted, the comma that would 
have separated it from the next operand 
must not be written. 

The rules for writing names and opera- 
tion codes in keyword macro instructions 
are the same as those for positional macro 
instructions. 

The begin, end, and continue columns for 
keyword macro instructions are the same as 
those for positional macro instructions. 

Each macro instruction operand must con- 
sist of a keyword immediately followed by 
an equal sign and a value. Anything that 
can be used as an operand in a positional 
macro instruction may be used as a value in 
keyword a macro instruction. 

The keyword part of each macro- 
instruction operand must correspond to one 
of the symbolic parameters that appears in 
the operand field of the prototype state- 
ment, h keyword corresponds to a symbolic 
parameter if the characters of the keyword 
are identical to the characters of the sym- 
bolic parameter that follow the ampersand. 

Operands of a keyword macro instruction 
may appear on separate cards. h comma must 
follow every operand except the last,, and 
the continuation column must contain a non- 
blank character. Comments may be contained 
on the separate cards that contain indivi- 
dual operands . 

A symbolic parameter becomes a null 
parameter if: 

1. A symbolic parameter appears in the 

name field of a prototype statement and 
the name field of the corresponding 
macro instruction is blank. 



No value is associated with a keyword 
in the operand field of a prototype 
statement, and the keyword and its 
associated value are omitted from the 
operand field of a macro iastruction. 



The following rules are used to replace 
the symbolic parameters in the model state- 
ments of a keyword macro definition: 

1. If a symbolic parameter appears in the 
name field of a prototype statement and 
the macro instruction is named, the 
symbolic parameter in the name field is 
replaced by the name. 

2. The value associated with each paramet- 
er in the operand field of the proto- 
type statement becomes the value of the 
symbolic parameter.. 

3. The value associated with each keyword 
specified in an operand of the macro 
instruction replaces the value obtained 
from the prototype statement for the 
symbolic parameter. 

The following keyword macro definition 
(first box), keyword macro instruction 
(second box), and generated statements 
(third box) illustrate these rules: 



T T 

Oper-j 
Name] at ion j Operand 



6 NAM 
gNAM 



HERE 



HERE 



MACRO 

MOVE 

STH 

LH 

STH 

LH 

MEND 



r 

I 

1 gREG=12, gAREA=SAVE, 6T0=, gFROM^ 

I gREG, gAREA 

|gREG,,gFROM 

I gREG, gTO 

I gREG, gAREA 



MOVE |TO=FLDA,FROM=FLDE,AREA=THERE 



STH 1 12, THERE 
LH |12,FLDB 
STH |12,FLDA 
LH 1 12, THERE 
J 



Note that the keyword REG was omitted in 
the macro instruction and the standard 
value 12 obtained from the prototype state- 
ment was used in the generation wherever 
gREG appeared in the model statements. 

If the entry FROM=FLDB is omitted from 
the macro instruction, the second model 
statement is generated as LH 12, which is 
an invalid statement to the Assembler. 
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ASSEMBLY OF MACRO INSTRUCTIONS 

At program assembly time., the macro 
instruction specifies which definition is 
to be called from the macro library. The 
definition is extracted, tailored by the 
operands in the macro instruction, and 
inserted in the program. The complete pro- 
grafft now consists of both source program 
statements and tailored model statements 



from the macro library in AsseTibler 
language. 



In subsequent phases of the assembly, 
the entire program is processed to produce 
the machine-language object program. 

Figure 10 illustrates the processing of 
a macro definition. 



Source 



SOURCE PROGRAM 
(Before) 



f 1 



15 



Program s ^6 Macro Instruction »•- < 



ASSEMBLER 
OPERATIONS 



Statements 



17 



Locate Macro 
Library Routine 

Perform indicated Selec- 
tion and Substitution 

Merge with 1 
Source Program J 



bource 

Program 

Statements 



SOURCE PROGRAM 
(After) 

r . 

I 

2- 



15 

16 Macro Instruction 



Macro 
Routine 



Source 
Program 

S^St @ ST! ©n t 



17 



...1 



Figure 10 . Schematic of Macro Processing 
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Macro Language 



The macro language is an extension of the 
System/360 Model 2 Assembler language and 
is an aid in i/riting an A^ssembler-language 
program. 

Before you can code a macro instruction, 
the series of statements that the macro 
instruction represents must be defined in a 
macro definition. 

A macro definition is composed of a 
header statement, a prototype statement, 
one or more model statements, and a trailer 
statement, in this sequence. You may 
further include conditional-assembly 
instructions. 

This section contains a description of 
the components of a positional macro defi- 
nition and of the differences between it 
and a keyi^ord macro definition. Further- 
more, this section also contains an 
explanation of the model statements, the 
conditional assembly instructions, and the 
system variable symbols. Inner macro 
instructions as special model statements 
are also described. A sample macro defini- 
tion and a step by step procedure for cod- 
ing a macro definition is included. 

Before you can use one of your own macro 
definitions you must include it in the 
macro library of your system. To this end, 
use the MMAINT (Macro Maintenance) program 
provided by IBM. 



^ ££2t2tZ2§_§tatement. This statement 
indicates the various symbolic parame- 
ters of a macro definition and the for- 
mat and the mnemonic operation code to 
be used in the macro instruction. 



Model statements and conditional- 
a ssemb ly instruct ions and com ments sta- 
tements. Model statements define 
representations of the statements that 
will replace the macro instruction in 
the source program. ::onditional- 
assembly instructions vary the 
sequence, number, and type of the sta- 
tements generated, based on presence, 
absence or values of the operands given 
in a particular macro instraction (see 
Co nditional- Assem bly Instructions) . 



A tr ail er _st a t ement . It indicates the 
end of a macro definition. 



MACRO — HEADER STATEMECQT 

The header statement indicates to the 
MMAINT (Macro Maintenance program) that a 
macro definition follo^i^s. It uust be the 
first statement in every macro definition. 
The format of this statement is: 



Positional Macro Definitions 

To make a macro definition available to 
many programs place the macro definition in 
the macro library by means of a Macro Main- 
tenance program (MMAINT) . The MMAINT pro- 
gram enables you to delete or replace macro 
definitions in the macro library according 
to your needs. 

When writing a macro definition, you 
cannot use the ICTL instruction to alter 
the normal format of the macro component 
statements. In a macro definition, the 
begin column is column 1, the end column is 
column 71, and the continue column for the 
prototype statement or an inner macro 
instruction is column 16. 



r T T 1 

1 I Oper- I I 

I Name j ation ] Operand | 

j. 1 1 ^ 

I Blank I MACRO | Blank or vvmm* | 

L JL J J 



* vvm m applies to DPS only. vv is the numb- 
er of the program version; mm is the modi- 
fication level. The operand, if present, 
is transferred into the macro directory 
(last two bytes of the corresponding 
entry) . 



PROTOTYPE STATEMENT 



Each macro definition includes (in the 
sequence indicated) : 

1. A header_statement. This statement 
indicates the beginning of a macro 
definition. 



The prototype stateiient indicates the for- 
mat and the mnemonic operation code of the 
positional macro instruction the Assembler 
is to interpret. It must be the second 
statement of every macro definition. The 
format of this statement is: 
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Name 



1- 



■1 

j Dper- 
jation 



A syir- 


\A symbol 1 


bolic 


i i 


para- 


I 1 


meter 


1 1 


or 


t 1 

t ! 


blank 


I 1 




_X X. 



Operand | 
^ 

Up to 49 symbolic | 
parameters, sep— j 
arated by connas | 



A symbolic parameter is an ampersand (&) 
followed by one to seven alphabetic and/or 

TM-.m^-v--; r-. ,-.1-, ^-^o,~.4- ^-.-c- 4-Kr> -F-i -.-0+- <-\f^ r.TK-;^K rr.Tlc^-1- 

be alphabetic. 



alphabetic. The operation code in the 
operation field must be unique. It must 
differ from, the operation code of an/ IBM- 
supplied macro definition, any machine and 
Assembler instruction, and the operation 
code of any other nriacro defmitiori you 
defined yourself. A list of the IBVI- 
supplied macro definitions is included in 
AoDendix E* 

Operand _Fi eld; The operand field ma/ con- 
tain up to 49 symbolic parameters separated 
by commas. These symbolic parameters are 
used in model statements and replaced dur- 
-Lixvj 5i_:ric-jrc>i»-iv-/ri. ^^^^ *_liG cojrxrGopv_»n._Axn^ 
operands of the macro instruction. 



You must not use any symbolic parameters 
that have &SYS as the first four 
characters. 

Furthermore, symbolic parameters in the 
form SALn, gAGn, &BLn, &BGn, SCLn, and 
SCGn, where n is one to five numeric chara- 
cters, are not permitted. These symbols 
are reserved for internal use. 

The following are valid symbolic 
oarameters : 



gREADER 


&L00P2 


&AGH 


6A23456 


6N 


SBLC 


6X4#F2 


SS4 


&C36A 



The following are invalid symbolic para- 
meters for the reasons indicated: 

lOAREA First character is not an 

ampersand 
S256B First character after ampersand 

is not a letter 
gAREA2456 More than seven characters 

after the ampersand 
6BCDg34 Contains a special character 

other than initial S 
&IN AREA Contains an embedded blank 
&SYSTEM Contains &SYS as the first four 

characters 
gAG15 Is in the form SAGn, where n is 

numeric 
&BG28 Is in the form &BGn, where n is 

numeric 
SCG215 Is in the form SCGn, where n is 

numeric 

Name: The symbolic parameter in the name 
field is normally used to name the 
generated statements. It can also be used 
in model statements in the same way as sym- 
bolic parameters defined in the operand 
field. 

2E§£§.ti2S" The s/mbol in the operation 
field is the mnemonic operation code of the 
macro definition containing the prototype 
statement. The operation code consists of 
one to five alphabetic and/or numeric 
characters, the first of which must be 



The folloii?ing sample protot/oe statement 
contains three symbolic parameters: one in 
the name field and two in the operand 
field. The mnemonic operation code is 
MOVE. 

r-' T T 1 

I lOper- I I 

I Name | ation | Operand | 

^ ^ ^ ^ 

I SNAME I MOVE | STO,&FROyi ] 

L X X J 

E£2t2tZE^_§t§t§-IlSnt_Z!2EI15t 

To allow for the inclusion of up to 49 sym- 
bolic parameters in the prototype statement 
of a macro definition, use as many con- 
tinuation cards as needed. The name field, 
if used, must begin in column 1. The 
operation field, preceded and follOi/</ed by 
at least one blank, must appear on the 
first card of the statement. The other 
rules are: 

• If the symbolic parameters in the 
operand field extend up to the end 
column, and if column 72 contains a non- 
blank character, the symbolic parameters 
may be continued in column 16 of the 
next card. A single symbolic parameter 
may be split beti^een tivo cards. 

• A blank following a symbolic parameter 
signifies the end of all symbolic 
parameters . 

• Comments may appear after the blank that 
indicates the enfl of all symbolic para- 
meters, up to and including column 71. 



MODEL STATEMENTS 

Model statements are representations of the 
statements that will replace the particular 
macro instruction in the source program. 

A model statement that contains no sym- 
bolic param.eters or variable sym.bols will 
appear in the source program in the same 



format as it appears in the macro defini- 
tion. If a model statement contains sym- 
bolic parameters or variable symbols, the 
Assembler replaces the symbolic parameters 
and variable symbols by the value specified 
in the macro instruction before the model 
statement is included in the source 
program. 



h model statement consists of one to 
four fields (from left to right) : name 
field, operation field, operand field, and 
comments field. 

The operation field may contain the 
operation code of any machine or Assembler 
instruction except: 

END, ICTL, ISEQ, LTORG, PRIDII, and START. 

It may also contain another inner macro 
instruction. The operation field must not 
contain a symbolic parameter. If REPRO is 
used as a model statement, the following 
card is not considered a model statement 
and therefore ignored by the Macro main- 
tenance program. 

The operand may consist of variable or 
non-variable symbols. For model statement 
fields, the rules' for paired apostrophes, 
ampersands, or blanks in macro instruction 
operands must be followed. 

Symbolic parameters used in a model sta- 
tement must be defined in the prototype 
statement. Symbols used in a model state- 
ment must be defined within the macro defi- 
nition or within the source program that 
calls the macro definition from the macro 
library. 

In the following example, the symbol 
SAVEAREA is defined outside the macro 
definition. 

The function of this macro definition is 
to move the contents of one storage area to 
another area in main storage. 



A model statement of a machine or 
Assembler instruction must not be continued 
on an additional card. If the model state- 
ment is a macro instruction (see Inner 
Macro Instructions) , it may be continued on 
as many cards as needed. 



During generation, each symbolic para- 
meter in the name or operand field of a 
model statement is replaced by the charac- 
ters of the macro instruction that corres- 
pond to the symbolic parameter in the pro- 
totype statement. The operand field of a 
generated model statement of a machine or 
Assembler instruction can contain 56 
characters . 



If a symbolic parameter or a system 
variable symbol appears in the comment 
field of a model statement, it is not 
replaced by the corresponding characters of 
the macro instruction. 



In the following example, the characters 
HERE, FIELDA, and FIELDS of the macro 
instruction MOVE correspond to the symbolic 
parameters &ISIAME, &T0, and &FRO.yi, respec- 
tively, of the prototype statement. 



r T T • 1 

1 Name [Operation | Operand | 

j. 1 + ^ 

I HERE IMOVE ] FIELDA, FIELDB ] 
L X J. J 



If the symbolic parameter &N\iyiE appears 
in the 'name or operand field of a model 
statement, it will be replaced by the 
characters HERE. Similarly, the symbolic 
parameters &T0 and &FROM will be replaced 
by the characters FIELDA and FIELDB, respe- 
ctively. If the preceding macro instruc- 
tion were used in a source program, the 
following Assembler-language statements 
would be generated. 



Header 

Prototype 

Model 

Model 

Model 

Model 

Trailer 



r — 


"T 


Oper- 


T~ 

1 


1 Name 




ation 


1 Operand 


1- 


- + ■ 


MACRO 


+ 

1 


1 &NAME 




MOVE 


lgrO,SFROM 


1 gNAME 




STH 


1 12, SAVEAREA 






LH 


|12,£FR0M 






STH 


|12,&T0 






LH 


1 12, SAVEAREA 






MEND 


1 



Note that each of the symbolic parame- 
ters used in the model statements of the 
preceding example appears in the prototype 
statement. 



Name 



HERE 



•T 

|0per- 
1 ation 



Operand 



I STH 
|LH 
I STH 
ILH 
.X 



12,SAVE?^REA 
12, FIELDB 
12, FIELDS, 
12,SAVE=LRE?i. 



you may use the same macro instruction 
more than once in the same program. The 
Assembler uses the same macro definition to 
interpret several occurrences of a macro 
instruction. The following example illus- 
trates this. 
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r T T 1 

I lOper- 1 i 

I Name j ation | Operand | 

Macro Instr.lHERE IMOVE I FIELDS. FIELDS I 
• 1 1 \ 

Generated jHERE | STH 112,SAVEA.REA | 
Generated j 1 LH |12,FIELDB | 
Generated ! 'STH !12rFIELDA | 
Generated j j LK j 12,3ft.vEaREa j 
j. 1 1 ^ 

Macro Instr. ILA.BELJMOVE |INrO,oarOF | 

^ + f ^ 

Generated | LABEL | STH |12 ,SA7EA.REA | 

Generated j j LH |12,oaTOF j 

Generated | | STH | 12, INTO | 

Generated | | LH |12,SAVEA.REA | 

L X X J 

In addition to denoting symbolic parame- 
ters, ampersands may appear in a character 
value or a self-defining value. Two amper- 
sands must be used to represent a single 
ampersand in a character value or self- 
defining value. The first statement in the 
following example is a model stateTient; the 
second statement is the source statement 
generated from the model statement. 

r T T T 1 

[Name I Oper- i Operand iCoinrnents i 

I I ation] I I 

^ ^ ^ ^ ^ 

IgSYMJDC iC'SeSYM IS gSYM' | &SYM IS NAME] 
|. 1 1 ^ ^ 

I NAME] DC jC'SSYM IS NAME' | gSYM IS NAME] 
L X X X J 

Character s_jiConcatenation)^ 

The characters represented by a symbolic 
parameter, SET symbols, system variable 
symbols, symbols, self -defining values, or 
character values may be concatenated as 
desired to produce symbols, self-defining 
values, and character values. (For a dis- 
cussion of SET symbols and system variable 
symbols see the sections Conditional- 
AsseiTibl^_Instructions and 5^stem_7ariable 
Symboj-S. ) A symbolic parameter, a SET syn- 
bol, or a system variable symbol conca- 
tenated with a second symbolic parameter 
cannot produce a third symbolic parameter. 

Concatenation can be performed in the 
name field and in the operand field, but is 
not permitted in the operation field. The 
following two points must be considered. 

1. When a symbolic parameter, a SEP sym- 
bol, or a system variable symbol is 
followed by an open parenthesis, a 
period, an alphabetic character, or a 
numeric character, a period must separ- 
ate it from the character that follows. 



2. 



When a symbolic parameter, a SET syn- 
bol, or a system variable symbol is 
followed by a single period, the perioc 
does not appear in the generated 

OUtDUt . 



1 T ,,r,l 






two points, in the examples, assume that 
gPARAM has the value A. 



Macro Definition: 



lenerated Statement: 



&PARAM. (EC) 


A(BC) 


gPARAM. .EC 


A.BC 


SPARAM.BC 


ABC 


gPARAM.2BC 


A2BC 


6PARAM..2B 


A. 2B 


BC6PARAM 


BCA 


BC.&PARA^4 


b::.a 


B2SPARAM 


B2A 


gPARAM.gPARAM 


AA 


&PARAM&PARAM 


AA 


£PARA?4. . £PARA)5 


A. A 



The following macro definition is a 
practical example of the preceding discus- 
sion. The function of the iiacrD definition 
is to move the contents of one area in main 
storage to another area in main storage. 



Header 

Prototype 

Model 

Model 

Model 

Model 

Trailer 

Macro 

Generated 
Generated 
Generated 
Generated 



Name 



T T 

Oper- I 

ation I Operand 



SNAME 
&NA)4E 



HERE 



HERE 



MACRO] 

MOVE !£PRE,SSAV,gREG,6NDX 

STH ] SREG, SSAV.gNDX 

LH JgREG, gPRE+8 

STH ]gREG,gPRE.A 

LH ] gREG, gSAVgNDX 

MEND i 

X 



MOVE ]FIELD,AREA,12, 4 



STH 
LH 
STH 
LH 



112,AREA4 
112,FIELD+8 
il2,FlELDA 
112, AREAU 
-J 



Note that the first and fourth model 
statements have identical operands, except 
for the period between the two symbolic 
parameters in the operand field of the 
first model statement. The period is 
necessar^^ in the third model statement to 
distinguish between the symbolic parameter 
gPRE and the symbol A. The period is unne- 
cessary (but may be used) in the second 
model statement to distinguish between the 
symbolic '^ar a.Tiet er SPRS and +8. 



First Macro 
Definition 



Second Macro 
Definition 



Third Macro 
Definition 



tieoder 

Prototype statement 



Macro instruction 



Trailer 




Header 

Prototyp statement 



Macro instruction 



Trailer 





Header 

Prototype statement 

Trailer 





Figure 11. Schematic Representation of Nested Macro Instructions 



I.2S^£_?:5§SE2_iDStructions 

A macro definition may contain another 
macro instruction as a model statement. 
The containing macro instruction is called 
^^ 21it.er_[nacro_inst ruction. The contained 
macro instruction is called an inner__macro 
instruction. 



The outer and inner macro instructions 
may be of the same or of different types. 
That is, both the inner and the outer macro 
instructions may be positional, they may 
both be keyword, or one may be positional 
and the other keyword. 



required. A third-level Tiacro definition 
cannot contain a macro instruction. 



Symbolic parameters that are part of the 
prototype statement, SET symbols, and sys- 
tem variable symbols may be used in an 
inner macro instruction. Each symbolic 
parameter, SET symbol, or system variable 
symbol is replaced by its value before the 
inner macro instruction is generated. 



For example, the following macro defini- 
tion is contained in the macro library. 



tifhen a macro definition contains a macro 
instruction, the macro instruction is said 
to be nested. The maximum depth of nesting 
is three. A macro definition (first level) 
may contain an inner macro instruction 
(second level) , The definition of this 
inner macro instruction (second level) may 
again contain a macro instruction (third 
level) , 



Figure 11 shows a schematic representa- 
tion of nested macro instructions. 



The first-level macro definition can 
contain as many second-level macro instruc- 
tions as are required. A second-level 
level macro definition can contain as many 
third-level macro instructions as are 



r - 

1 Name 
I . 


T 


Oper- 
ation 


_1- 


Operand 


r 


T 


MACRO 

ADD 

LH 

AH 

AH 

STH 

MEND 


t 


6N1, SlNF2, SN3, gRE3, SAREA 

SRES.gNl 

SREG,gN2 

gRE3,gN3 

6RE3,gAREA 



L X J. J 



The preceding ADD macro definition is 
used as an inner macro instruction in the 
COMP macro definition shown below. The 
macro instruction causing the generation of 
the model statements is given in the middle 
box. The generated statements are in the 
third box. 
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r 


1 


Oper- 


T 

i 


i Name! 


ation i Operand 


L 


-4-. 




1 


r 


T 




t 




1 


MA.CRO! 






COMP 


|&AREA,SR1,&R2,&V1 , & V2 , &\/3 , £NA 






SR 


1 SRI, gR2 






CH 


jgRl^SAREA 






BNE 


j SNA 






ADD 


1 SVl , SV2 , gV3 , 12 , SAREA 


JSNA. 




AH 

MEND 


1 SRI, S AREA 

! 


I. 


-4-- 




.4. 


L 


.L 


COWP 


icHECK,10,ll,X,Y,Z,CHNS 
.J 


r 


r 




1 






SR 


|10,11 






CH 


1 10, CHECK 






BNE 


|CHNG 






ADD 


|X„Y,Z, 12, CHECK 






LH 


|12,X 






AH 


!12,Y 






AH 


!12,Z 






STH 


j 12, CHECK 


]CHNG| 


AH 


1 10, CHECK 



CONDITIONAL- ASSEMBLY INSTRUCTIONS 

The information given in the preceding sec- 
tions of this publication is sufficient to 
write a relatively simple macro definition. 
For each macro definition, the same 
sequence of statements is generated each 
time the Tiacro definition is called by a 
macro instruction, except that the specific 
values and symbols in each statement may be 
different. 



definitions give you a high degree of fle- 
xibility in the application of macro 
definitions. For, by using the saTie symbol 
in the name field of a SET instruction, you 
nria\7 assi'^n it a n^w v^^ue ap'^ *"hus 3lter 
the value of the operand in the Tiodel 
statement. 

The results of the operations performed 
by the SET instructions are contained, dur- 
ing the generation of macro definitions, in 
a series of specially provided areas in 
main storage referred to by SEP variable 
symbols, SET variable syTibols can be usei 
in model statements, SET instructions, and 
conditional instructions. 

The A30 (Assembler GO) and AGOB 
(Assembler GO Back) instructions are sitii- 
lar to an unconditional branch instruction. 
They are used to indicate, by neans of a 
sequence symbol, the next statement to be 
processed by the Assembler. (Sequence sym- 
bols are described in detail under Sequence 
Symbol s ) . 

The AIF (Assemble IF) and AIFB (Assemble 
IF Back) instructions are similar to a con- 
ditional branch instruction. They are used 
to indicate, by means of the logical value 
obtained from the operand and a sequence 
symbol, the next statement to be processed 
by the Assembler if the condition is TRUE. 

The ANOP (Assemble NO Operation) 
instruction is used with the AGO, AGOB, 
AIF, and AIFB instructions if a sequence 
symbol cannot be used as the name of the 
next statement to be branched to. 



Frequently, it is desirable to vary the 
sequence, number, and type of instructions 
generated, based on the presence, absence, 
or values of the operands given in a parti- 
cular macro instruction. Thus, the state- 
ments generated for two macro instructions 
calling the same macro definition night 
differ- while the functions ■'^erf orired by 
the statements are basically the same. To 
permit the writing of a more complex macro 
definition capable of producing a tailored 
set of generated statements based on the 
content of the macro instruction operands, 
two categories of special instructions are 
provided, the SET instructions and the con- 
ditional instructions. 

The conditional-assembly instructions 
are: SETA, SETB, SETC, AGO, AGOB, AIF, 
AIFB, ANOP, MEXIT, and MNOTE. 

The Set instructions SETA, SETC, and 

OijXO fJCX. J. IJl- III Cli. X l^lilllC 1 — LO k^d J.1^ UJ.CI U J-Oli , 

character manipulation, and set binary 
switches on the basis of logical and rela- 
tional expressions. 

The use of SET variable syiTibols in the 
operand field of model statements of macro 



The MEXIT (Macro EXIT) instruction is 
used to indicate to the macro generator 
that it is to terminate processing of a 
macro definition. 

The MNOTE (Macro NOTE) instruction is 
used to generate messages in the output 
listing. 



The functions of the SET 
and the AGO, AGOB, AIF, and 
tions are interrelated becau 
generated output is generall 
the use of AGO, AGOB, AIF, a 
instructions based on the re 
from the values of SET instr 
numerous examples of SET ins 
given in the section that ex 
SETB, and SETC instructions, 
shown in the sections descri 
remaining conditional-assemb 
instructions. 



instructions 
AIFB instruc- 
se the 

y tailored by 
nd AIFB 

suits obtained 
uctions. While 
tractions are 
plain the SETA, 

their use is 
bing the 

ly 



SET VARIABLE SYMBOLS 

The labels or symbols used in the name 
field of SET instructions are referred to 
as SET variable svmbols or SEP svmbols. 
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The three types and formats of SEP vari- 
able symbols are: 



Symbol 

SEIA 
SETB 
SETC 



Format 

gA.Gn or &A.Ln 
gBGn or gBLn 
SCGn 



The n stands for an arithmetic value as 
described in the subsequent sections. 

Three SET instructions are used to 
assign arithmetic, character, and logical 
values to SET symbols. The SET?^ instruc- 
tion assigns an arithmetic value to a SETA. 
symbol. The SETC instruction assigns a 
character value to a SETC symbol. A. SEPB 
instruction assigns a binary (or logical) 
value, TROE (1) or FALSE (0) , to a SETB 
symbol. 

You should assign each SET symbol a spe- 
cific value before the variable symbol is 
used in the operand field of a macro com- 
ponent. If you do not assign a value, the 
following assumed values are used. 

• SETA symbols (arithmetic values) have an 
initial value of zero. 



When macro instructions are nested, 
local SETA and SETB symbols defined in the 
outer macro instruction are reset to zero 
immediately before the inner macro instruc- 
tion is processed. After the inner macro 
instruction has been processed, the local 
variable symbols are reset to tlie valnes 
that were defined in ttie outer macro 
instruction. 

SET symbols may be used with the follow- 
ing restrictions: 

• They can only be used in the name or 
operand field of model stateiients or 
conditional-assembly instructions . 

• They must not be used to generate a new 
sequence symbol, a SET symbol, a symbol- 
ic parameter, or a system variable 
symbol. 

• The SETC symbol may be used in the 
operand field of a SETA statement only 
if the character string is composed of 
from one to five decimal digits. 

For restrictions on SETB symbols, refer 
to AQQendi x_E2_ Summa r y;_of _^ac r o_L-a n ju ag;e . 



• SETC symbols (character values) have a 
null character value, zero bytes in 
length. 

• SETB symbols (binary values) have an 
initial value of FALSE (0). 

All SET symbols can be defined to be 
global. This means that once a value has 
been defined for a particular SET symbol, 
the value remains in effect for_all 

example, if a source program contains three 
macro instructions, and a SETA symbol is 
given the value six in the macro definition 
called by the first macro instruction, the 
value six will be used when the particular 
SETA symbol appears within the macro 
definitions called by the other two macro 
instructions. You may, however, redefine 
the SETA symbol to a new value. 

SETA and SETB symbols can be defined to 
be local, i.e., once a value has been 
defined for a particular SETA or SETB sym- 
bol, the value remains in effect for_all 
references__to_ it only within itsjmacro 
^^finition. Once the macro instruction is 
assembled, the value of the SETA or SETB 
symbol is reset to zero. For example, if a 
source program contains two macro instruc- 
tions, and a SETB symbol is assigned a 
value of one in the macro definition called 
by the first macro instruction, the SETB 
symbol is reset to zero after the macro 
instruction has been assembled. 



SETA -- SET ARITHNIETIC 

The SETA instruction may be used to assign 
an arithmetic value to a SETA symbol. Each 
arithmetic value is 5 digits in size, and 
each value is initially zero. You may 
change the value assigned to a SETA symbol 
by using another SETA instruction with the 
same variable symbol in the name field. 
The format of this instruction is: 



r T T 1 

i I Oper- I I 

I Name | ation | Operand | 

^ f 1 ^ 

I A SETA| SETA | An arithmetic | 

I symbol I | expression | 

L J J J 

You may use SETA symbols in the operand 
field or name field of model statements. 

The SETA symbol in the name field may be 
either local or global. There are 16 dif- 
ferent global and 16 different Local SETA 
symbols. 

A global SETA symbol has the form &A3n, 
where n = 0-15. 

A local SETA symbol has the form SALn, 
where n = 0-15. 

The expression in the operand field may 
consist of one term, or as many as three 
terms connected by arithmetic operators. 
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The terms may be positive decimal self- 
defining values, symbolic parameters, SET 
symbols, or system variable symbols that 
represent positive decimal self-defining 
values. The arithmetic operators that can 
be used to combine terms are + (addition), 
- (subtraction), * (multiplication) , and 
/ (division). 



The range of values that can be assigned 
to a SETA variable symbol is from to 
99999. Expressions are evaxuateu in 
storage using decimal arithmetic, which 
means that interim values can be in the 
range from 99999 to -99999. 



Each tert 
value. 



-o oic(^xiiiax iiuiiie J- xc-ctx 



For example, the expression 16215 + 
16215 - 16215 is valid because neither the 
interim nor the final value exceeds 99999. 
The ex'^ression 65536*65536/65536 is invalid 
because even thou'^h the final value is 
equal to 65536, the interim value 
(429U967296) exceeds 99999. 

The expression 65536*16384 is iavalid, 
because the final value exceeds 99999. 

The expression 3 + 4 - 9 is invalid 
because the final value is negative. The 
expression 3 - 5 + 6 is valid because, even 
if the interim value is negative, the final 
value is positive. 

Division by zero results in a value of 
zero. In division, only the integer por- 
tion of the quotient is retained. For 
example, 97 divided by 25 gives the result 
of 3. The fractional portion of the quo- 
tient is dropped. 

An expression must not contain two suc- 
cessive terms or two operators. An expres- 
sion must not begin with an operator. 

The following are examples of expre- 
ssions that may be used in the operand 
field of a SETA instruction: 



27 
6A33+4 



5+6AL12 
SA36-gAL10+5 



The following is not permitted in the 
operand field of a SETA instructioa for the 
reasons stated: 



6AG11+-12 

+14 

&AG5-SAL8+8+6AG6 

SAGIS 

gAG3* (&AL2 + gAr,l) 



Two successive operators 
Begins with an operator 
Expression consists of 
more than three terms 
SAGIS is not a valid SETA 
symbol since 18 > 15 
Grouping by use of paren- 
theses is not periiitted 



The following procedure is used to eva- 
luate the arithmetic expression in the 
operand field of a SETA instruction. 



• The arithmetic operations are perforTied 
from left to right. However, multipli- 
cation and division are performed before 
addition and subtraction. 

• The com.riuted result is the value 
assigned to the SET symbol in the name 
field. 

If the operand of a SETA instruction is 
found to be invalid, a value of zero is 
assigned to the SETA symbol in the name 
field. 

The arithmetic value defined by a SETA 
instruction is represented in a model sta- 
tement by the SETA symbol assigned. When a 
SETA symbol is detected daring nacro 
generation, it is replaced by the value of 
the symbol converted to a decimal self- 
defining value with any leading zeros 
dropped. 

The example below illustrates this rule. 
The function of this macro definition is to 
move the contents of one storage area to 
another area in main storage. The symbol 
SAVEAREA is defined outside the macro 
definition. 



I Name | Operation 



I Operand 
+- 



^ ^ + ^ 







MACRO 






SNAME 




MOVE 




gTO,gFROM 


&AL1 




SETA 




10 


gAL2 




SETA 




8 


gAL3 




SETA 




&ALl-gAL2 


&AL4 




SETA 




gALl+gAL3 


gNAME 


1 


STH 

LH 

STH 

LH 

MEND 


4.. 


12, SAVEAREA 

12,gFROMg2^L3 

12,gTOgAL4 

12, SAVEAREA 




1 




t 




HERE 


1 


MOVE 


- -X. 


FIELDA,FIELDB 




1 




T 




HERE 




STH 

LH 

STH 

LH 




12, SAVEAREA 
12,FIELDB2 
12,FIELDA12 
12, SAVEAREA 



L i, X J 

If you have assigned an arithmetic value 
to a SETA symbol, you may change the 
assigned value by using the SETA symbol in 
the name field of another SETA instruction. 
If a SETA symbol has been used in the name 
field of more than one SETA state^ient, and 
the SETA symbol is used in the name or 
operand field of another model statement, 
the value substituted for the SETA symbol 
is the last value assigned to it. 

The example below illustrates this rule. 
The function Of this macro definition is 
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the same as that of the above example. The 
boxes contain again, respectively, the 
macro definition, macro instruction, and 
generated statements. 





-T 


Oper- 


- T 




Name 


1 


ation 


_ J. 


Operand 




T 


MACRO 


t 




&NAME 




MOVE 




& TO, g FROM 


6AL8 




SETA 




5 


6 NAME 




STH 
LH 




12,SAVEAREA 
12„SFROM&AL8 


6AL8 


1 


SETA 
STH 
LH 
MEND 


_ i. 


gAL8+3 
12,grOgAL8 
12, SAVE ARE A 




T 




T 




HERE 


1 


MOVE 


_ J. 


FIELDA, FIELDB 




1 




T 




HERE 




STH 
LH 
STH 
LH 




12, 5 AVE ARE A 
12,FIELDB5 
12, FIELDA8 
12, SAVE AREA 



L i. i J 



SETC — SET CHARACTER 

The SETC instruction may be used to assign 
a character value to a SETC symbol. Each 
global character value can vary from to 8 
bytes in size. Each character value is 
initially a null character value of zero 
bytes in length. You may change the 
character value assigned to a SETC symbol 
by using another SETC instruction with the 
same variable symbol in the name field. 
The format of this instruction is: 

r T T-^ 1 

1 I Oper- I 1 

I Name | ation | Operand | 

I. 1 + ^ 

jA SETC I SETC | Up to 8 characters | 
I symbol | | enclosed by a pair | 
1 1 1 of apostrophes | 

L X A . J 

SETC symbols in the name field are 
always global. They have the form gCSn, 
where n = 0-15. 

You may use SETC symbols in the operand 
field or name field of model statements. 

The value of the characters in the 
operand field is assigned to the SETC sym- 
bol in the name field. The characters in 
the operand field may consist of a string 
of characters, a SET symbol, symbolic para- 
meters, system variable symbols, or any 
concatenation of the preceding values, enc- 
losed within a pair of apostrophes. Length 
attributes cannot be substituted by the 
implicit length of the symbol. 



The following statement assigns the 
character value AB%4 to the SET symbol 
gCG5: 

r r T 1 

1 I Oper- I I 

I Name | ation | Operand j 

J. 1_. 1 ^ 

IgCSS I SETC I 'AB%4' j 

L J. X J 

More than one character value may be 
concatenated into a single character value 
by placing a period between the terminating 
apostrophe of one character value and the 
opening apostrophe of the next character 
value. 

Either of the following statements may 
be used to assign the character value 2 AND 
3 to the SETC symbol gCSl^;: 

r T T 1 

I I Oper- 1 I 

[Name | ation | Operand | 

|. 1 1 ^ 

|gCGl4 I SETC I '2 AND 3' | 

lgC3l4 I SETC I '2' .' AND 3' j 
L X X . J 

Two apostrophes must be used to repre- 
sent one apostrophe that is part of a 
character value enclosed in apostrophes. 

The following statement assigns the 
character value L' SYMBOL to the SETC syiibol 
gCGll if gPARAM is substituted by SYMBOL: 

r TT T ■ 1 

I 1 Oper- 1 I 

I Name | ation | Operand | 

IgCGll I SETC 1 •L'*6PARAM' | 

L X X J 

Two ampersands roust be used to represent 
one ampersand that is not part of a vari- 
able symbol. Both ampersands become part 
of the character value assigned to the SETC 
symbol. They are not replaced by a single 
ampersand. 

The following statement assigns the 
character value HALFgg to the SETC symbol 
gC34: 



r T T 1 

I I Oper- I I 

jName | ation | Operand | 

Y 1 + ^ 

I &CG4 I SETC I 'HALF&g' | 

L X X J 

SET symbols, symbolic parameters, and 
system variable symbols may be concatenated 
with other characters in the operand field 
of a SETC instruction according to the gen- 
eral rules for concatenation. 
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If SCG12 is assigpxed the character value 
AB%4, the following statement may be used 
to assign the character value aB%4RST to 
the SETC symbol 6CG13: 

r T T 1 

I lOper- 1 I 

I Name j ation | Operand I 

|. 1 1 — — ,^-======^ 

I &CG13 I SETC I '&CG12.RST' | 

I X X . J 

If eC3l2 has been assigned the character 
value AB%4, the following statement may be 
used to assign the character value RSrAB%4 
to the SEIC symbol SCGIO: 

r T T 1 

I lOper- I I 

j Name j ation | Operand | 

{SCGIO I SETC I •R3rSCG12' j 

L X X J 

The character value that has beea 
assigned to a SETC symbol is substituted 
for the SETC symbol when it is used in the 
name field or operand field of model state- 
ments. For example, consider the macro 
definition, macro instruction, and 
generated statements (shown in the boxes in 
this order) below. 

The function of this macro definition is 
to move the contents of one storage area to 
another area in main storage. The symbol 
SAVEAREA. is defined outside the macro 
definition. 



r 

1 

1 Name 


T 

IDper- 
1 ation 




Operand 


|. 

1 


-+ 

I viACRO 


— +- 




1 6NAME 


! MOVE 




& TO, g FROM 


I&CG4 


|SETC 




'FIELD' 


1 6 NAME 


] STH 




12, SAVE ARE A 


1 


|LH 




12,6CG4&FROM 


1 


|STH 




12,£CG4gT0 


1 


|LH 




12,SAVEAREA 


1 


|MEND 






L 


X 


- -X - 




IHERE 


T 

|MOVE 


T 


A,B 


j. 

JHERE 


-f 

|STH 


— + - 


12,SAVEAREA 


1 


|LH 




12, FIELDS 


1 


|STH 




12,FIELDA 


1 


|LH 




12„SAVEAREA 



L X i J 



If you have assigned a character value 
to a SETC symbol, you may change the value 
assigned by using the SETC symbol in the 
name field of another SETC instruction. If 
a SETC symbol has been used in the name 
field of more than one SETC instruction and 
the SETC symbol is used in the name or 



operand field of another model statemenb, 
the value substituted for the SSTC symbol 
is the last value assigned to it. 



The following example illustrates this 
rule: 



r 
1 

1 Name 
1 . 


T 

|0per- 

1 ation 

_x 


J 


Operand 


r 

1 


T — 

1 MACRO 


r 




|£NAME 


1 MOVE 




gTO, gFRO.VI 


|gCG8 


|SETC 




'FIELD' 


ISNAME 


|STH 




12,SAVEAREA 


1 


|LH 




12,gCG8gFRO.y[ 


|gCG8 


|SETC 




'AREA' 


1 


ISTH 




12,gCG8grO 


1 


|LH 




12,SAVEAREA 


i 


jMEND 






I- 

IHERE 


-t 

|MOVE 


— +-- 


A,B 


L 


J 


X . 




r 

IHERE 


1 — 

|STH 




12,SAVEAREA 


1 


|LH 




12,FIEL0B 


1 


|STH 




12,AREAA 


1 


|LH 




12, SAVE AREA 



L X X J 

If a SETA symbol is used in the operand 
field of a SETC instruction, it is replaced 
by the value of the SETA symbol converted 
to a decimal self-defining value with any 
leading zeros dropped. 

A SETC symbol may be used in the operand 
field of SETA, SETB, SETC, AIF, and AIFB 
instructions. 



Defining Substrings with SETC Instractions, 
A substring consists of a character value 
enclosed in apostrophes, iramediatel/ fol- 
lowed by two arithmetic terms separated by 
a comma and enclosed in parentheses. 

The character value assigned to a SET 
symbol in a SETC instruction can be a sub- 
string. Substrings permit you to assign, 
to a SETC symbol, part of the value 
assigned to another SET symbol, a symbolic 
parameter, a self-defining character 
string, or any valid combination of the 
preceding values. 

The arithmetic terms may consist of SETA 
symbols and self-defining decimal values 
with any leading zeros dropped. The first 
term indicates the first character in the 
substring, the second term, the num.ber of 
characters in the substring. 

A character string from which a sub- 
string is extracted may contain up to 16 
characters. The resulting substring that 
can be assigned to a SETC symbol may con- 
tain up to eight characters. 
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The following are examples of valid sub- 
string definitions in operand fields of 
SETC instructions: 



•&CG6' (2,3) 
• SCGIO.XYZ' (U, &AG8) 
•XYZgCGlO* (6R.L4,6) 
' &CGl.XYZgA.G2' (4,7) 
•SPAR AM' (3,2) 



The following is not permitted in the 
operand field of a SETC instruction: 



•SCG2' (4,6) 

•gCG15' (8) 
•gCG4« (5 6) 

•CG5'3,4 

•SCGS* (gCG4,2) 



Blank between character 
value and arithmetic 
terms. 

Only one arithmetic term. 

Arithmetic terms not 
separated by a comma. 

Arithmetic terms not enc- 
losed in parentheses. 

First term not arithmetic, 



The following example illustrates the 
use of substrings. The macro instruction 
(HERE MOVE FIELDA, B) assigns the 
character value FIELDA to the symbol gro. 
The SETC instruction assigns the value 
FIELD to the symbol gCG6. The gCG6 symbol 
is used in the LH model statement and is 
replaced in the generated statement by the 
value assigned to it. 



I Name | Operation 



j Operand 
■+- 



j. ^ 1 





1 MACRO 






&NAME 


|MOVE 




&T0, gFROM 


&CG6 


ISETC 




• &ro' (1,5) 


SNAME 


jSTH 




12,SAVEAREA 




|LH 




12, SCGeSFROM 




|STH 




i2,&ro 




jLH 




12, SAVEAREA 




|MEND 








-4- 


-1- - 






T 


T 




HERE 


|MOVE 




FIELDA, B 




J. 


4- - 






T 


T 




HERE 


ISTH 




12, SAVE ARE A 




ILH 




12,FIELDB 




|STH 




12, FIELDA 




]LH 




12, SAVE ARE A 



L JL -L J 

Substrings may be concatenated with 
other character values in the operand field 
of a SETC statement. If a substring fol- 
lows a character value that is not a sub- 
string, the two may be concatenated by 
placing a period between the first charact- 
er value and the substring. 

For example, if 6CG6 is assigned the 
character value AB%4 , and SCG8 is assigned 
the character value ABCDEF,, the following 
statement assigns SCGO the character value 
AB%4BCD. 



r T T 1 

I Mame | Operation | Operand | 

|. ^___ 1 ^ 

JSCGO I SETC 1 'SCGB' .' &CG8' (2,3) | 

L . J J. J 

If a substring precedes another charact- 
er value, the two may be coacatenated by 
placing the terminating parentheses of the 
substring and the opening apostrophe of the 
next character value adjacent to one 
another. 

If SC32 is assigned the character value 
AB%4, and gCG3 is assigned the character 
value 5RS, any one of the following state- 
ments may be used to assign gCG4 the 
character value AB%45RS. 





-T- 


Oper- 


-T' 

1 




Name 


1 


ation 


1 
I 


Operand 




1 




1 




&CG4 




SETC 


1 


•gCG2gCG3' 


&CG4 




SETC 


1 


'&CG2' .' gCG3' 


SCG4 




SETC 


1 


'SCG2.gCG3' 


gCG4 




SETC 


1 


•gCG2' (l,4)'gCG3' 


&CG4 


.. 1 , 


SETC 


\ 


•gCG2' (1,4)' SCG3' (1,3) 



If gC32 contained AB%4XY and &CG3 con- 
tained 5RSTU, only the last instruction of 
the preceding example would produce the 
desired result of AB%45RS. The first four 
instructions would be in error because the 
result exceeds eight characters. 

Assume &CG1 is assigned the character 
value ABCDE, &CG2 has beea assigned the 
character value FGHIJKPQ,, and &CG3 is 
assigned the character value LMNO. The 
following SETC instruction can be used to 
assign gCG4 the character value DEXYZFGM. 

r T "T 1 

1 I Oper- I I 

I Name I at ion I Operand | 

^ — ^ ^ ^ 

|gCG4|SErC I 'gCGl.XYZgC32' (4 , 7) ' gC33' ( 2, 1) j 
L J J J 

The preceding example also illustrates 
how a character string from which a sub- 
string is extracted can contain up to 16 
characters: ' gCGl. XYZ6CG2' becomes ' ABCDE- 
XYZFGHIJKP2' before the substriag DEXYZFG 
is extracted. 



SETB — SET BINARY 

The SETB instruction assigns the value one 
(TROE) or zero (FALSE) to a SETS symbol. 
The initial value is zero. You may change 
the value assigned to a SETB symbol by 
using another SETB instruction. The format 
of this instruction is: 
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Name 



I Oper- 
j ation 



i operand 



I A cprna 
j symbol 



J,. 



1 
1 ___^ 

I or a relational j 
I expression enclosed | 
jin parentheses j 



You may use SETB symbols in the operand 
field or name field of model statements. 

The SETB symbol can be either local or 
global. 

For DPS there are 256 different global 
and 256 different local SETB symbols. 

For TPS there are 256 different global 
and 128 different local SETB symbols. 

A global SETB symbol has the form SB3n, 
where n = 0-255. 

A local SETB symbol has the form 6BLn, 
where n = 0-255 for DPS and n = 0-127 for 
TPS. 

The logical or relational expression in 
the operand field is evaluated to determine 
whether it is true or false, and the value 
one or zero, respectively, is assigned to 
the SETB symbol in the name field. 

A logical expression may consist of a 
single term, or of two terms separated by a 
logical operator. If a logical expression 
consists of a single term, the term may be 
zero, one, or a SETB symbol. If a logical 
expression consists of two terms, each term 
must be a SETB symbol. 

The loaical_operators are AND, OR, and 
NOT. The logical operator NOT may only be 
used to negate a SETB symbol. 

A two-term logical expression is eva- 
luated according to the following rules of 
Boolean logic: 

• X AND y is equivalent to X + Y, i.e., 
0*0 = 0,, 0*1 = 0, 1*0 = 0, and 1*1 = 1. 

• X OR Y is equivalent to X + Y, i.e., 
0+0 = 0, 0+1 = 1, 1+0 = 1, and 1+1 = 1. 

• NOT X is equivalent to 1 - X, i.e., 
1-0 = 1 and 1-1 = 0. 

The following rules must be observed: 

• A logical expression must not contain 
two terms in succession. 

• A logical expression may contain two 
operators in succession but only in the 
combination AND NOT and OR NOT. 



rt xogicax expression may oegm wicu cue 
operator NOT. It must not begin with 
the operators AND or OR. 



The logical operators tiust be separated 
by one blank from the terms they relate. 



The entire logical expression must be 
enclosed within parentheses. 



The following are exam.ples of logical 
expressions that may be used as the operand 
of a SETB instruction: 

(NOT gB39) 

(6BG8) 

(1) 

(6BG13 AND 6BL4) 

(feBGB AND SOT SBL6) 

(NOT &BL22 AND gBG22) 

(NOT &BL24 AND NOT &BL25) 

(&B312 OR 6BL10) 
(SBG25 OR NOT &BL25) 
(NOT SBGIO OR &B316) 
(NOT SBGO OR NOT gBGl) 



The following is not permitted as the 
operand field of a SETB instruction, for 
the reasons stated: 



&BL8) 
AND OR &BG12) 



Not enclosed in 
parentheses . 
Two terms in 
succession. 
Two operators in 
succession; second 
one is OR. 
NOT NOr 6BL18) Two operators in 

succession; first one 
is NOr. 

Negated term is not a 
SETB symbol. 
Expression begins 
with an operator 
other than NOP. 
Not SETB variable 
symbols. 



gB38 

(&BG6 

(SBGl 

(&BL1 

(NOT 1) 

(AND gBG2 OR 6BG3) 

(SAGl AND gAG3) 



^ relational expression is either an 
arithmetic relation or a character 
relation. 



An arithmetic_relation consists of t/1/0 
arithmetic expressions connected by a rela- 
tional operator. An arithmetic expression 
can be a SETA symbol, a SETC symbol, or any 
valid operand of a SET?V instruction. If a 
SETC symbol is used in an arithmetic rela- 
tion, the SETC symbol must represent an 
arithmetic value. The arithmetic relation 
is enclosed within oarentheses. 



Rft 



^ £har act er_r elation consists of two 
character values connected by a relational 
operator. In a character relation, each 
character value must be enclosed by apos- 
trophes, A character value can be a SEIA 
syirbol, a SETC symbol, or any valid operand 
of a SETC instruction, except substrings. 
If a SETA symbol is used in a character 
relation, the SETA symbol is treated as a 
character value. The maximum length of any 
character value used in a character rela- 
tion is eight. If two character values in 
a character relation are of unequal length, 
the longer value is always considered 
greater, regardless of the content of the 
two values. The character relation is en- 
closed within parentheses. 



The relational operators are: 



EQ 
NE 
LT 



(equal) , 

(not equal) , 

(less than) , 
GT (greater than), 
LE (less than or equal to),, 
GE (greater than or equal to). 



A relational expression must not contain 
two values in succession. A relational 
expression must not contain two operators 
in succession. The relational operators 
must be separated from the values they rel- 
ate by one blank. 

Relational operators and logical opera- 
tors must not appear in the same SEPB 
instruction. 



The logical value that has been assigned 
to a SETB symbol is substituted for the 
SETB symbol when it is used in the operand 
field of a SETB, AIF, or AIFB instruction. 
(A detailed description of the !^IF and AIFB 
instructions is given in the sections AIF 
— Con ditional Branch and AI FB -- Condi- 
tional Branch Backward. ) If the SETB sym- 
bol is used in any other Assembler-language 
statement, the logical value is converted 
to an integer. The logical value TRUE is 
converted to the integer one, and the log- 
ical value FALSE is converted to the integ- 
er zero. 



If you have assigned a logical value to 
a SETB symbol, you may change the value 
assigned by using the SETB syiibol in the 
name field of another SETB statement. If a 
SETB symbol has been used in the name field 
of more than one SETB statement, and the 
SETB symbol is used in the name or operand 
field of another model statement, the value 
substituted for the SETB symbol is the last 
value assigned to it. 

The following example illustrates this 
rule. 'gTO' GT 'AAAAAA' has the logical 
value TRUE because FIELDA has a greater 
binary value than AAAAAA. 

The function of this macro definition is 
to move the contents of one storage area to 
another area in main storage. The boxes 
contain respectively, the macro definition, 
macro instruction, and generated 
statements . 



The following are examples of valid 
operand fields of SETB instructions with a 
relational operator: 

('FIELD' NE 'SCGU') 
(12 EQ SALI) 
(SALIO GT &AG6) 
(•SCG8' LT 'gCGU') 
('£CG5.X9' E2 '&CG2') 
(&AL9+gAL4*7 LT 16+&AG1+4) 
(gBG4 EQ 1) 

The following is not permitted in the 
operand field of a SETB instruction, for 
the reasons stated: 



Name 



-^ r- 

I Operation | 



Operand 



SBG8 

(SBG6 gBL8) 

(&BG10 GT EQ 6BG16) 

(LE 6BL20 EQ gBL21) 

(&AG3 EQ 'SAGU') 



Not enclosed in 

parentheses. 

Two terms in 

succession. 

Two operators in 

succession. 

Expression begins 

with an operator. 

Arithmetic value 

equated to character 

value. 



j. 

1 


-+ 

1 MACRO 


4- 




1 6 NAME 


|MOVE 




& TO, g FROM 


|gBG8 


jSETB 




('gTO' 3T 'AAAAft-A') 


|gNAME 


|STH 




12,SAVEAREA 


1 


|LH 




12,gFROMgBG8 


I&BG8 


|SETB 




(NOr gBGS) 


1 


|STH 




12, gTOgB38 


1 


|LH 




12,SAVE.\REA 


1 

L _ 


jMEND 
J. - 


4. . 




r 


t 


— T 




|HERE 
J. „ 

|HERE 


IMOVE 
|STH 


1- 


FIELDA, FIELDS 


12,SAVEAREA 


1 


|LH 




12,FIELDB1 


1 


|STH 




12,FIELDA0 


1 


|LH 




12, SAVE AREA 



L i J. ] 



Testing for Null Parameters. k null para- 
meter is a symbolic parameter defined in a 
positional prototype statement, but unde- 
fined in the macro instruction calling the 
macro definition. 
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The SETB instruction can be used to test 
for the presence of a null parameter. This 
is accomplished hv placing the syrnbolic 
parameter to be tested in the operand field 
of a SETE instruction and equating it to a 
null character string. h null character 
string is represented by two apostrophes. 
If the parameter is present in the calling 
fnacro instruction, the result is FALSE or 
zero. If the parameter is not present in 
the calling macro instruction, the result 
is TRUE or One. 



For example, if the prototype statement 



Name | Operation] Operand 
MACRO 



.UP 
LOOP 



AGO 



ANOP 
AH 



AGO 



.DO^N 



7, FOUR 



• OUT 



I 
I 

i 1 

i 



IS 



gNAME ADD gFROMl , gFRDM2, &SUM 
and the macro instruction is: 



.DOWN 



AGO 



.AGAIN 



|2 

V 



FIRST ADD FIELDl, ,FIELD3 

the result of the SETB instruction 

SBGIO SETB C&FROMl' EQ ' ' ) 

is FALSE (0), ii/hile the result of the SETB 
instruction 



Rr:;aTMi LH 



AG OB 



MEND 



.UP 



.OUT 
L X J. J 



&B38 SETB (•£FR0M2' EQ ' ' ) 
is TRUE (1) . 

When the same prototype statement and 
the same macro instruction are used, the 
result of the SETB instruction 

SBGIO SETB {'gFROMl' NE " ) 

is TRUE (1), >?hile the result of the SETB 
instruction 

gB38 SETB ('gFR0M2' NE ' ' ) 

is FALSE (0) . 



SEQUENCE SYMBOLS 

Sequence symbols are used in the operand 
fields of AGO, AGOB, AIF, AIFB instructions 
and in the name field of model statements 
and conditional assembly instructions. 
They indicate to the Assembler the sequence 
of source statements to be generated. 



A sequence symbol consists of a period 
(.) followed by one to seven alphabetic 
and/or numeric characters. The first 
character must always be alphabetic. 



The following example illustrates the 
use of sequence symbols as a "branching 
address". 



To ensure proper generation, all 
sequence symbols used in a macro definition 
must be unique. 

The following are valid sequence 
symbols: 



.READER 
. L00P2 



. A23456 
.X4F2 



.Ao4 
.SifSTEM 

,3L16 



The following are invalid sequence sym- 
bols, for the reasons stated: 

lOAREA First character is not a 

period. 
,246B First character after period 

is not a alphabetic. 
.AREA2456 More than seven characters 

after period. 
.IN AREA Contains an embedded blank. 
.TW0.A5 Contains a special character 

other than initial period. 

A sequence symbol may be used in the 
name field of any statement within a macro 
definition that does not require a symbol 
or SET symbol, except a header or a proto- 
type statement. 

If a sequence symbol appears in the name 
field of an inner macro instruction in a 
macro definition and the corresponding pro- 
totype statement contains a symbolic para- 
meter in the name field, the sequence sym- 
bol does not replace the symbolic parameter 
in the model statement. 
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A sequence symbol appearing in the name 
field of a model statement does not appear 
in the generated statement. 



AIF — CONDITIONAL BRANCH 

The AIF instruction may be used to skip one 
or more statements in your macro defini- 
tion. The format of this instruction is: 



Name 



1- 

lA se- I AIF 
1 que nee | 
I symbol | 
lor I 
I blank j 



-H T 

|Oper-| 

I ation I Operand 



I A logical or relational ex- | 
Ipression enclosed ia paren- | 
1 theses, followed by a se- j 
I quence s/mbol defined in a | 
1 following statement | 



Any logical or relational expression 
that may be used in the operand field of a 
SETB instruction may also be used in the 
operand field of an AIF instruction. As in 
the SETB instruction, the logical or rela- 
tional expression must be enclosed in 
parentheses. The sequence symbol in the 
operand field must immediately follow the 
closing parenthesis of the logical or rela- 
tional expression. It must also appear in 
the name field of a statement following the 
AIF instruction. 



The following are examples of valid con- 
tents of the operand fields of AIF 
instructions : 



(gB312 AND gBL10).LOOP 
(&AL10 EQ &AG6).LAST 



The following examples are invalid as 
the operand field of an AIF instruction, 
for the reasons stated: 



(&BG8 AND NOT gBG9) 



X4F2 



(&BG8 AND NOT gBG9) . XF2 



No sequence 
symbol. 
No logical or 
relational ex- 
pression. 
Blank between 
logical expres- 
sion and se- 
quence symbol. 



The logical or relational expression in 
the operand field is evaluated to determine 
whether it is TRUE or FALSE. If the expre- 
ssion is TRUE, the statement named by the 
sequence symbol in the operand field is the 
next statement processed by the Assembler. 
If the expression is FALSE, the next 



sequential statement is processed by the 
Assembler. 



The following example illustrates the 
use of the AIF conditional-assembly 
instruction. It also illustrates the use 
of global SET symbols to carry values 
between macro instructions in the same 
assembly. 



The function of this macro definition is 
to move the contents of one storage area to 
another area in main storage. 



The first time the macro instruction 
appears in an assembly, a save area is 
defined. The generated instructions of all 
additional appearances of this nacro 
instruction in an assembly use the save 
area and the register specified in the 
first appearance of the macro instraction. 



The boxes in the example below contain 
respectively: the macro definition, the 
first macro instruction, the statements 
generated as a result of the first macro 
instruction, the second macro instruction, 
and the statements generated because of it. 







Oper- 






Name 


1 


ation 


1 


Operand 




1 




1 








MACRO 










MOVE 




&rO,&FROM, £REG,&SAVE 






AIF 




(SBGl) .A 


&BG1 




SETB 




(1) 


gCGl 




SETC 




•&SAVE* 


&C32 




SETC 
B 




•gREG' 
&CG1+2 


€C31 




DC 




H'O' 


.A 


1 


STH 

LH 

STH 

LH 

MEND 


1 


gCG2,&CGl 
&CG2,&FR0M 
£CG2,&T0 
&CG2, &C31 




1 




1 








MOVE 




TAX, DEDaCT,9,W0RKl 




1 




1 






1 




1 








B 




t^ORKl + 2 


WORKl 


1 


DC 

STH 

LH 

STH 

LH 


1 


H'O' 
9,^0RK1 
9, DEDUCT 
9, TAX 
9, WORKl 




1 


MOVE 


1 


FICA, DEDUCT, 7, W0RK6 




1 




1 






1 




1 








STH 




9 , WORKl 






LH 




9, DEDUCT 






STH 




9, FICA 






LH 




9 , WORKl 



Macro Language 89 



The B and DC statements are not 
generated for the second macro instruction, 
for when the first macro instruction was 
assembled, £B31 was set to one. The third 
and fourth parameters in the second MOVE 
macro instruction are ignored. SCSI is 
used to assign a name to the DC model 
statement. 



AIFB — CONDITIONAL BRANCH BACKWARD 

The AIFB instruction may be used to condi- 
tionally alter the sequence in which source 
statements are processed by the macro 
generator. The format of this instruction 
is: 



I I 3per- I I 

j Name j ationj Operand | 

1. 1 1 ^ 

I A se- j AIFB I A logical or relational ex- 

I guence j 

I symbol | 

lor j 

1 blank I 



Ipression enclosed in paren- | 
I theses, followed by a se- | 
j quence symbol defined in a j 
I preceding statement j 



!Ne 



T 

I Oper- 
1 ation 



gAL2 



1 

I 

I 

I . LOOP 

j 6AL1 

I SAL2 



i MACRO 
JMOVE 
I SETA 
I AIF 
! MVC 
i SETA 
I SETA 
i AIFB 
MVC 
MEND 



MOVE 



MVC 
MVC 
MVC 



I MOETP 



V^peL CtllU 



6N0CHAR, 6T0, SFROM 

gNOCHAR 

{&AL2 LE 256).LSTMOV 

grO+fiALl= (25 6) f SFROyt+SALl 

gALl+256 

gNOCHAR-£ALl 

(SAL2 ST 256). LOOP 

ePO+S ALL (6AL2) , gFROM* feALl 



540, oar, INPUT 



OUT+0(256) ,INPaT+0 
OUT+256(256) ,INPUT+256 
OaT+512(28),INP[JT+512 



MVC 



I O[JT+5U0 + 0(97),RES[JLr+-0 

.X 



A30 — UNCONDITIONAL BRANCH 

The A30 instruction may be used to alter 
the sequence in which source statements are 
processed by the Assembler. The fornat of 
this instruction is: 



The AIFB statement is identical to the 
AIF statement, except that the sequence 

ByiTrbol in the operand field :nust be in thi 
name field of a statement preceding; the 
AIFB statement. 



The following example illustrates the 
use of the AIFB instruction. The function 
of the macro definition is to move a speci- 
fied number of bytes of information from 
one location in main storage to another. 
The first operand represents the number of 
bytes to be moved. The second operand 
specifies the first position of the field 
to be filled. The third operand specifies 
the location of the first byte to be moved. 



The boxes in the example below contain 
respectively: the macro definition, the 
first macro instruction, the statements 
generated as a result of the first macro 
instruction, the second macro instruction, 
and the statements generated because of it, 



The value of the local variable symbol 
gALl is initially zero. 



T 

I Oper- 
Name j ation 



h 



I Operand 



quence | 
symbol j 
or I 
blank j 

X. 



j A sequence symbDi 
I defined in a followi 
I statement 



ng| 



The sequence symbol in the operand field 
may be in the name field of a statement 
foll^i^im the AGO statement. The statement 
named by the sequence symbol in the operand 
field is the next statement processed by 
the Assembler. 

The following example illustrates the 
use of the A30 instruction. The function 
of this macro instruction is tD move a spe- 
cified number of bytes from one location in 
main storage to another. The MOVE macro 
definition shown in the section AIFB_-- 
Conditional Branch Backward is used as an 
inner macro instruction in this example. 

The boxes in the example below contain 
respectively: the macro definition, the 
first macro instruction, the statements 
generated as a result of the first macro 
instruction, the second macro instruction, 
and the statements generated because of it. 
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r T T 



1 Oper- 1 
Name | ation | Operand 
1 1 

1 MACRO 1 

1 WOVEN ; gNOCHAR, &rO, gFROM 
1 AIF 1 CgNOCHAR' EQ 'M.A 
1 AIF 1 (gNOCHAR NE 2).B 
.A 1 STH 1 12, SAVEAREA 
1 LH 1 12, gFROM 

1 STH 1 i2,gro 

1 LH 1 12, SAVE AREA 
1 AGO 1 .0 
.B ! MOVE 1 gNOCHAR, gTO, gFROM 

X _ J. - 


ft 

1 MOVEN 1 ,FIELDA,WORK 
X 4- - 


T t - 

1 STH 1 12, SAVEAREA 

1 LH 1 12, WORK 
1 STH 1 12,FIELDA 
1 LH 1 12, SAVE AREA 
1 + _ 

1 MOVEN 1 97, aUT+540, RESULT 
1 + 

1 MVC 1 OUT+540+0(97) ,RESULT+0 



^ f- 





1 Oper- 


1 


Name 


1 ation 
J. 


1 Operand 
_j 




t 


1 — 




1 MACRO 


1 




IMOVE 


1 gNOCHAR, gTO, gFROM 


gAL2 


|SETA 


1 gNOCHAR 


.LOOP 


1 AIF 


1 (gAL2 LE 256).LSTMOV 




|MVC 


1 gTO+gALl. (256) ,gFROM+gALl 


gALl 


1 SETA 


|gALl+256 


gAL2 


1 SETA 


1 gNOCHAR- gALl 




1 AGOB 


1 .LOOP 


,LSTMOV|MVC 


1 gTO+gALl. (gAL2) , gFROM+gALl 




|MEND 


1 




J. 


-J. _ _ 




T 


T _ _ 




IMOVE 


|5tio,o[jr,iNPaT 




J. - . 


-X _ _ 




t 


t - ~ 




|MVC 


|OUT+0(256) ,INP[JT + 




|MVC 


1 OUT+256(256) ,INPUr+256 




|MVC 


|OUT+512(28) ,INPaT+512 



L X X J 



L X X J 



ANOP --NO OPERATION 



AGOB — UNCONDITIONAL BRANCH BACKWARD 

The AGOB instruction may be used to alter 
the sequence in which source statements are 
processed by the Assembler. The format of 
this instruction is: 



1 I Oper- 
|Narae | ation 

I- — f 

I A se- I AGOB 

I quence | 

I symbol I 

jor blank] 

L X 



I Operand 



H 



A sequence symbol | 
defined in a | 
preceding statement | 



The AGOB instruction is identical to the 
AGO statement except that the sequence sym- 
bol in the operand field must be in the 
name field of a instruction Q^&ce5.1ni^ the 
AGOB instruction. 



The following illustrates the use of the 
AGOB instruction. The macro definition in 
this example is functionally the same as 
the macro definition in the section AIFB-^ 
Conditional Branch Backiirard. 



The ANOP instruction may be used to faci- 
litate conditional and unconditional 
branching to statements named by symbols or 
SET symbols. The fornnat of this instruc- 
tion is: 



r T T 1 

1 I Oper- I I 

\ Name | ation | Operand | 

^ 1 1 ^ 

1 A se- I ANOP I Blank | 

I quence | | | 

j symbol | | | 

L X X J 



If you want to use an AGO, A30B, AIF, or 
AIFB instruction to branch to a instruction 
that has a symbol or SET symbol in the name 
field, place an ANOP statement before the 
instruction you want to branch to, and 
branch to the ANOP instruction. 



The following example illustrates the 
use of the ANOP statement. This example 
allows a field of any length to be moved. 
The source and destination fields need not 
be on a halfword boundary. The name field 
contains the symbolic name of the first 
instruction of the macro routine. 



The boxes in the example below contain 
respectively: the macro definition, the 
macro instruction, and the statements 
generated as a result of the macro 
instruction. 



The boxes in the example below contain 
respectively: the macro definition, the 
macro instruction, and the statements 
generated as a result of the macro 
instruction. 
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h 



"T 

I Dper- 
j ation 



-+- 



I &NAME 
|gAL2 
ISCGl 
! .LOOP 
igCGl 
I6AL1 
I gAL2 
j feCGl 

! 

I .LSTMOV 
I gCGl 



I MACRO 

I MOVE 
I SETA 
I SETC 
i A IF 
jMVC 
I SETA 
1 SETA 
jSETC 
! ASOB 
ANOP 
MVC 
MEND 



I operand 

I 

1 

I &N0CHAR,gFR0M,gr0 

I SNOCHAR 

I • g NAME ' 

i(£AL2 LE 256). LSTMOV 

l&TO+gALl. (256) ,gFR0M+gALl 

I gALl+256 

I SNOCHAR-SALl 

r' 

I -LOOP 

I 

|gT0+6ALl. (gAL2) ,gFROM+gALl 



I- 



. 1 1 

jFIRST |MOVE |540,iNPor,oar 

I- f — 



i MVC j Our+0(256) , INPur+0 

I MvC i OuT-*-256( 256) , INPUT + 256 

I MVC |QaT+512(28) ,INPar+512 

.J. X 



must contain a MEND instruction evea if 
definition contains one or nore MEXIT 
iastructions. 



tht 



The following example illustrates the 
use of the MEXIT instruction. The function 
of the macro definition is to move a speci- 



■F-i cH 



r^f ■; ^ -P^^r 






one location in main storage to another. 
The definition is essentially the sa:ne as 
the macro definition shown in the section 
AGO_--_Unconditional_Branch. HDwever, the 
use of the MEXII instruction reduces the 
time required for assembling the macro 
instruction if the first routine is used. 

The boxes in the example below contain 
respectively: the Tiacro definition, the 
first macro instruction, the stateiients 
generated as a result of the first macro 
instruction, the second macro instruction, 
and the statements generated because of it. 



Note that the value of tiie local vari- 
able symbol 6AL1 is initially zero. 



MEXIT — MACRO DEFINITION EXIT 

The MEXIT instruction can be used to indic- 
ate to the Assembler to terminate proces- 
sing of a macro definition. The format of 
this instruction is: 



-^ 

1 Oper- 



I Name i citiun 
I- + 



! Operana 



1 A se- 1 MEXIT 




I quence | 




1 symbol | 




I or 1 




1 blank | 




L X 


__x 



Blank 



The MEXIT instruction may be used in a 
macro definition when you wish that only a 
certain portion of the definition be 
generated. For example, a definition con- 
tains two sequences of operations. The 
first sequence is to be generated if a spe- 
cified condition is met and the second 
sequence is to be generated if another spe- 
cified condition is met. The use of the 
MEXIT instruction after the first sequence 
will terminate generation, just the same as 
the MEND instruction will do when placed 
after the second sequence. 

The MEXIT instruction should not be con- 
fused with the MEND instruction. The MEND 
instruction indicates the end of a macro 
definition to the macro generating phase of 
the Assembler, as well as signifying the 
end of generation. Every macro definition 



Name 



.A 



.B 

gAL2 
, LOOP 

6AL1 
&AL2 

. LSTMOV 



Oper- 
ation 



-+■ 



MACRO 

MOVE 

AIF 

AIF 

STH 

LH 

STH 

LH 

MEXIT 

ANOP 

SETA 

AIF 

MVC 

SETA 

SETA 

AGOB 

MVC 

MEND 



MOVE 






STH 
LH 
STH 
LH 



Operand 



Sl^OCHAR, STO, &FROM 

CgNOCHAR' EQ " ) . A 

(SNOCHAR NE 2) .B 

12,SAVEAREA 

12,gFR0M 

12,gT0 

12,3h\7E^REh 



gNOCHAR 

(gAL2 LE 256). LSTMOV 

gTO+gALl. (256),gFRO.M + gALl 

gALl+256 

gNOCHAR-g!\Ll 

.LOOP 

gTO+gALl. (gAL2) , gFROM+gALl 



+ ■ 



2,oar,iNPjr 



12,SAVEAREA 
12, INPUT 
12, OUT 
12, 3 AVE ARE A 



! MOVE I 540, OUT, INPUT 



mc |our+0(256) ,iNPar+o 

MVC |OUT+256(256) ,INPUT+256 
MVC I OUT+512{28) , INPaT+512 

X 



MNOTE — REQUEST FOR A MESSAGE 

The MNOTE instruction may be used to requ- 
est the Assembler to generate a message. 

The forrnat of this instruction is: 
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T T 

Name 1 Operation] Operand 




Any combination of 
characters enclosed 
in apostrophes. A 
severity code, as 
used in Assembler 
languages for higher 
models, is ignored. 



.When an MNOTE statement is processed by 
the Assembler, the characters in the 
operand field are printed in the program 
listing in the same way error messages are 
printed in the program listing. The out- 
side apostrophes are not printed. 

If variable symbols are used in the 
operand field, they are replaced b^ the 
values they represent. 

The following example illustrates the 
use of the MNOTE statement. This macro 
definition tests for the presence of the 
three parameters in the macro instruction. 
If any parameter is missing, an appropriate 
message is printed and assembly of the 
macro instruction is terminated. 



r T T 




Oper- 




1 Name 

L _ -J 


ation 


Operand 

L - - 


r 1 


r 1 
MACRO 


r 




MOVE 


6N0CHAR, gTO, SFROM 




AIF 


CSNOCHAR' NE * ' ) . NO 




MNOTE 


'FIRST PARAMETER OMITTED* 


1 &BL1 


SETB 


(1) 


1 .NO 


AIF 


1 C&TO' NE " ).N1 




MNOTE 


'SECOND PARAMETER OMITTED' 


ISBLI 


SETB 


(1) 


|.N1 


AIF 


CSFROM' NE ").N2 




MNOTE 


'THIRD PARAMETER OMITTED' 


1 .N3 


MNOTE 
MEXIT 


'GENERATION TERMINATED' 


1.N2 


AIFB 


(SBLl) .N3 


1 &AL2 


SETA 


SNOCHAR 


1 . LOOP 


AIF 


(&AL2 LE 256) .LSTMO 




MVC 


&T0+&AL1. (256) ,&FR0M+6AL1 


|SAL1 


SETA 


&AL1+256 


1 gAL2 


SETA 


&N0CHAR-&AL1 




AGOB 1 


.LOOP 


1 . LSTMO 


MVC 

MEND 


&TO+gALl. (SAL2) ,gFROM+&ALl 



the comment. This type is included ia a 
macro definition. The Assembler generates 
this type of comments statement into any 
source program that uses the particular 
macro definition. 

The second type of comments statement 
has a period (.) in column 1, immediately 
followed by an asterisk (*), followed by 
the comment. This type of comments state- 
ment documents the macro definition and is 
not included in the macro definition. 



MEND — TRAILER STATEMENT 

The trailer statement indicates to the 
Assembler that a macro definition is com- 
plete. It must be the last statement in 
every macro definition. The format of this 
statement is: 



Name 



■T 

I Oper- 
1 at ion 



A se- 
quence 
symbol 
or 
blank 



MEND 



1 Operand 
4 

I Blank 



A sequence symbol consists of a period 
followed by one to seven alphabetic and/or 
numeric characters, the first of which must 
be alphabetic. Sequence symbols are dis- 
cussed in detail under Sequence Symbols. 



Keyword Macro Definitions 

This section describes the differences 
between a keyword macro definition and a 
positional macro definition. 

A keyword macro definition is used in 
cases where the number or type of operands 
is such that a positional macro instruction 
becomes confusing or cumbersome. It allows 
the values specified by each parameter to 
be used with a predefined keyword. A key- 
word macro definition allows the operands 
to be specified in any desired order. 



Comments _Statements 

Comments statements may be interspersed in 
the model statements of a macro definition. 
Two types of comments statements are 
permitted. 

The first type of comments statement has 
an asterisk (*) in column 1, followed by 



The keyword for 
advantages: (1) i 
the number of oper 
(2) it allows the 
dard value in the 
an operand is miss 
tion, the standard 
statement replaces 
symbolic parameter 



mat has two additional 
t is possible to limit 
ands in a given card and 
specification of a stan- 
prototype statement. If 
ing in the macro instruc- 
value from the protot/pe 
any occurrences of that 
in the model statements. 
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Esch keyword rnacro definition uruat 
include: a header statement, a prototype 
statement, model statements, and a trailer 
statement. 



Like a positional macro definition, a 
keyword macro definition may contain com- 
ment and conditional— assembly statements, 
all of which are described in preceding 
sections. Keyword macro definitions may 
include the 6SYSNDX and gSYSECT system 
variable symbols, but no SSYSLIST system 
variable symbols. (See System _yariable 
Symbols) . 

The general format of a keyword proto- 
type statement is : 



=CARDA.REa 
gTYPE 
SIN 256B 



1^^ 

j Naiixe 



j uper- 



j upercina 



h- 



I A syir- \h symbol jup to 49 operands, 

|bolic j [separated by commas, 

param- | | of the form described 

eter or | | below 

blank | | 



A keyword prototype statement differs 
from a positional prototype statement only 
in the operand field. 

Each operand must consist of a symbolic 
parameter followed by an equal sign- Sym- 
bolic parameters are described under Posi- 
tional Prototype Statement. 

The equal sign may be followed by a 
standard v alu e to be substituted for the 
symbolic parameter in case the parameter is 
not contained as a keyword in the operand 
field of a macro instruction. 

If a standard value is either not 
desired or unnecessary! the equal sign is 
followed by the comma that separates the 
parameter from the next parameter. In the 
case of the last parameter, the equal sign 
may be followed by a blank. 

Apything that can be used as an operand 
in a macro instruction may be used as a 
standard value in a keyword prototype sta- 
tement, including null values. 

The following are valid keyword proto- 
type statement operands : 

&TO=23ft 

gL00P2=SYMB0L 

gSy=H'4096' 

6FR0M= 

The following are invalid keyword proto- 
type statement operands, for the reasons 

oca ucu; 



No symbolic parameter. 
No equal sign. 
Standard value used, but 
no equal sign. 

I?r-rlir»l c~ A r^n ^r^r^tr- r^ -v 4- 

i_J ^ 1^ (-1 _i. k^U-^lJ. '^\Jt\^Kj tl^(^ 

immediately follow? symbolic 
parameter. 



System Variable Symbols 

System variable syraools are local variable 
symbols that are assigned values by the 
Assembler. They may be used in the name. or 
operand field of macro definition state- 
ments. They are not permitted in the name 
field of conditional-assembly instructions. 

If a system variable symbol is used in 
the name or operand field of a statement 
that is part of a macro definition, the 
value substituted for the variable symbol 
is the value the Assembler has assigned to 
the variable symbol. 



SSYSNDX — MACBO INSTRaCTION INDEX 

The system variable symbol SSYSNDX may be 
concatenated to other characters to create 
unique symbols for generated stateiients. 
SSYSNDX is assigned the decimal value 0001 
for the first macro instruction that is 
assembled. The value assigned to 6SYSMDX 
for any other macro instruction is one plus 
the value assigned to SSYSNDX for the pre- 
vious macro instruction. High-order zeros 
are not suppressed. 

Throughout one use of a tiacro defini- 
tion, the value of 6SYSNDX may be con- 
sidered a constant, independent of any 
inner macro instruction in that definition. 
If 6SYSNDX is used in the name or operand 
field of a statement that is part of a 
macro definition, the value substituted for 
SSYSNDX is the value assigned to it for the 
macro instruction being interpreted. 

One use of the &SYSNDX system variable 
symbol is shown in the following macro 
definition. The function of this macro 
definition is to move the contents of one 
storage area to another area in main 
storage. 

In the example, ASSYSNDX provides a 
unique symbol in the name field for branch- 
ing to a particular instruction within the 
macro definition. The content of a field 
is not moved if the first byte of the field 
is a binary zero. 

The function of this macro definition is 
to move the contents of one storage area to 
another area in main storage. 



9U 



1 — ~ 


— T- 


■""■*"■ — ■■*""" — - 


-T~ 




■ -1 


|Name 


1 


Operation 


1 


Operand 


1 


I- 


--+- 


MACRO 

MOVE 

CLI 

BE 

STH 

LH 

STH 

LH 


-1- 


& TO, 6 FROM 

fiFROM,X'00' 

A&SYSNDX 

12, SAVE^REA 

12,&FR0M 

12, STO 

12,SAVEAREA 


— 1 


|A&S5fSNDX 




EQU 
MEND 




* 




L 


— J. 




_1_ 




— J 



CSECT or DSECT Statements processed in a 
macro definition affect the valae for 6SY- 
SECT for any subsequent inner macro 
instructions in that definition, and for 
any other following macro instructions. 



Throughout the use of a macro defini- 
tion, the value of SSYSECT may be consi- 
dered a constant, independent of any CSECT 
or DSECT statements or inner macro instruc- 
tions in that definition. 



If the following macro instructions were 
the 106th and the 107th macro instructions 
interpreted by the macro generator, the 
following statements would be generated. 



Name 


1 Operation 
1 


-J. . 


Operand 




T 


T 






jMOVE 
1 


-J. . 


FIELDA, FIELDS 




T 


t 






|CLI 




FIELDB,X'00' 




|BE 




A0106 




|STH 




12, SAVE ARE A 




|LH 




12, FIELDS 




|STH 




12, FIELDA 




|LH 




12, SAVEARE?^ 


A0106 


iEQU 
1 


-X . 


* 




r 


T 






IMOVE 




FIELDC, FIELDD 




-f 


-+- 







|CLI 




FIELDD, X' 00' 




IBE 




A0107 




iSTH 




12,3AVEAREA 




|LH 




12,, FIELDD 




|STH 




12, FIELDC 




|LH 




12, SAVEAREA 


A0107 


|EQU 




* 



bbibECT — CURRENT CONTROL SECTION 

The system variable symbol &SYSECT may be 
used to represent the name of the control 
section in which a macro instruction 
appears. For each macro instruction pro- 
cessed by the Assembler, 6SYSECT is 
assigned a value that is the name of the 
control section in which the macro instruc- 
tion appears. 



The example below illustrates these 
rules. (In the example, model statements 
not required for explanation have been 
omitted. ) 



9 
10 



r T 

J Name | Operation 



I Operand 



^ 





1 MACRO 








1 INNER 


1 &INCSECT 




&INCSECT 


1 CSECT 








|DC 


1 Y(SSYSECT) 






1 MEND 








_4. _ 


L 






T 

1 MACRO 


— r 






1 OUTRl 






CSOUTl 


1 CSECT 








jDS 


jlOOC 






1 INNER 


|INA 






1 INNER 


|INB 






|DC 


1 Y(&SYSECT) 






|MEND 








_j. 


J 






1 MACRO 


1 — 






10UTR2 








|DC 


1 Y(&SYSECT) 






1 ^4EJJD 








_4. _. 


,_4. ^ 




MAINPR03 


T 

1 CSECT 


t — 






IDS 


|200C 






1 OUTRl 








1 0UTR2 








_j. 


-1. _ _ 




MAINPROG 


T 

1 CSECT 


t 






IDS 


|200C 




CSOUTl 


1 CSECT 








|DS 


|100C 




INA 


1 CSECT 








|DC 


1 y(csoaTi) 




INB 


1 CSECT 








|DC 


1 Y(INA) 






|DC 


1 Y(MAIMPR03) 






|DC 


1 Y(INS) 





'\flhen &SYSECT is used in a macro defini- 
tion, the value substituted for SSYSECT is 
the name of the last CSECT, DSECT, or START 
statement that occurs before the macro 
instruction. If no named CSECT, DSECT, or 
START Statement occurs before a macro 
instruction, &SYSECT is assigned a null- 
character value for that macro instruction. 



Statement 8 is the last CSECT, DSECT, or 
START instruction processed befDre state- 
ment 9 is processed. Therefore, &SYSECT is 
assigned the value MAINPROS for macro 
instruction OUTRl in statement 9. MAINPR03 
is substituted for SSYSECT when it appears 
in statement 6. 
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statement 3 is the last CSECr, DSECr, c 
STA.RT instruction processed before state- 



-nU^-ya-f r\-i-a 



c r»\r r^TZ"-^ r 



X IICJ. CJ. IJI. C &OXOCj^X J.t> 



assigned the value CSOUri for macro 
instruction INNER in statement 4. CSOUri 
is substituted for SSYSECr when it appears 
in statement 2. 



Statement 1 is used to generate a CSECr 
instruction for statement 4. This is the 
last CSECr, DSECT, or STA-Rr statement that 
appears bexore statement j. Thereiore, 
6SYSECT is assigned the value INA for macro 
instruction INNER in statement 5. INA is 
substituted for SSYSECT when it appears in 
statement 2, 



Statement 1 is used to generate a CSECT 
statemen"*" for statement 5 This is the 
last CSECT DSECT or START statement that 
appears before statement 10. Therefore, 
£CSECT is assigned the value 1MB for macro 
instruction oaTR2 in statement 10. INB is 
substituted for 6SYSECr when it appears in 
statement 7. 



gSYSLIST(n) — MACRO INSTRQCTION OPERAND 
FIELD 

The system variable symbol gSYSLISTCn) pro- 
vides you with an alternate way to refer to 
the nth operand of a positional macro 
instruction, n may be a decimal self- 
defining value or a SETA symbol. The 
&SYSLIST(n) system variable symbol is not 
permitted in a keyword macro definition. 

6SYSLIST(n) and symbolic parameters may 
be used in the same macro definition. 

The self-defining value following 
gSYSLIsr(n) may be any value between 1 and 
49, regardless of the number of symbolic 
parameters in the prototype statement. If 
the corresponding symbolic parameter is not 
contained in the prototype statement, it is 
treated as a null parameter. 

The following example illustrates the 
use of the gSYSLIST(n) system variable 
symbol. 

The function of this macro definition is 
to add the contents of the fields specified 
in the operand field of the macro instruc- 
tion and store the sum in the field speci- 
fied by the last operand of the macro 
instruction. Depending on the number of 
operands included in the macro instruction, 
2, 3, or 4 fields are added together. The 
result is stored in the last field speci- 
fied in the macro in£ 



r 

K. _ 



T r 

Oper- 
ation 



+■ 



gNAME 
gNAME 

6AL1 
.ADD 
SALl 
&AL2 



DEUTOT 



DEUTOT 



yiACRC 

ADD 

STH 

LH 

SETA 

AH 

SETA 

SETA 

AIFB 

STH 

LH 

MEND 



ADD 



STH 

LH 

Aa 

AH 

AH 

STH 

LH 



ADD 



STH 

LH 

AH 

STH 

LH 



uperana 



&F1, gF2, &F3, gF4, gF5 

12,3A7EAREA 

12, &F1 

2 

12, gSYSLISTCSALl) 

&AL1+1 

&AL1+1 

(' fe.SYSLlSrUAL2) ' NE ' ' ) . ADD 

12,&SYBLI3r(gALl) 

12,SAVEAREA 



FTAX, FICA, STAX, BONDS, DEDUCT 



12,3A\7EAREA 
12, FTAX 
12 , FICA 
12, STAX 
12, BONDS 
12, DEDUCT 
12,SAVEAREA 



REGHR3,OrHR3,TOrHRS 



12,SAVEAREA 

12,RE3HR3 

12,OTHR3 

12:,T0rHRS 

12,SAV^EAREA 



I Pper-I 

j Name | ationj operand 





MACRO 




g LABEL 


yiOVE 


gA, gTl,gFl,gT2,gF2,gr3,gF3 


g LABEL 


STH 


12, gA 


gAL3 


SETA 


2 


gAL4 


SETA 


3 


.LO 


LH 


12,gSYSLIST{gAL4) 




STH 


12,gSYSLIST(gAL3) 


gAL3 


SETA 


gAL3+2 


gAL4 


SETA 


gAL4+2 




AIFB 


('gSYSLISr(gAL3)' NE ' ' ) . LO 




LH 


12, gA 




MEND 




J 


1 J 

- 


L _ 








MULMOV 


MOVE 


AREA, A,B.X. Y 


J 


L J 


1- - _ _ _ _ 






- - 


MULMOV 


STH 


12, AREA 




LH 


12, B 




STH 


12, A 




LH 


12, Y 




STH 


12, X 




LH 


12, AREA 






The preceding example further illus- 
trates the use of the gSYSLIST(n) system 
variable symbol. In this macro definition, 
a multiple move is accomplished. The numb- 
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er of fields to be moved depends upon the 
number of symbolic parameters included in 
the prototype statement and the number of 
entries in the operand field of the macro 
instruction. 



e. If several source fields are used, 
punch two additional operands for 
each additional source field up to 
a maximum of ten source fields. 
Each pair of operands consists of 
the symbol of the source field fol- 
lowed by the length of the source 
field. 



Sample Macro Definition 

This section contains a sample macro defi- 
nition named GMOVE. Figure 12 is a flow- 
chart that describes the logic of the macro 
definition. The flowchart is an example of 
one which you might draw in preparing to 
code a macro definition. Figure 13 is the 
actual coding of the macro definition. 

The section further contains a set of 
instructions for using the macro definition 
in a source program. The set of instruc- 
tions illustrates the rules for writing 
macro instructions in a source program. 

The 3MDVE macro instruction causes the 
Assembler to generate instructions to move 
a source field to a destination field 
regardless of the length of the field. It 
can also move up to ten source fields of 
any length to consecutive locations in a 
destination field. A typical use of this 
multi-source or gather-move function is to 
build an output record. 

If the same move is to be used in sever- 
al places within the same control section, 
a facility is provided to generate the move 
instructions as a closed subroutine and 
link to the subroutine rather then generate 
them repeatedly in-line. ase of the sub- 
routine facility saves main storage. 



IN-LINE qSE OF THE GMOVE MA.CRO INSTRUCTION 

To generate the appropriate move instruc- 
tions without establishing a subroutine: 

1. Leave the name field blank. 

2. Punch the operation field as GMOVE. 

3. State in the operand field: 

a. The first operand as the name of 
the destination field. 

b. The second operand as the name of 
the first source field, 

c. The third operand as the length of 
the first source field. 

d. If only one source field is used, 
enter no more operands. 



Code Generate d for th e GMOv^E Macro 
In st ruction used In-line 

The GMOVE macro instruction generates one 
or more MVC instructions each time it 
appears, as illustrated by the three 
examples below. 



|Oper- 
I ation 

f 

I GMOVE 

I- 

I MVC 

f 

I GMOVE 

I- 

I MVC 
jMVC 
I MVC 
f 

I GMOVE 

1- 

I MVC 
I MVC 
I MVC 
L 



Operand 



FIELDS, FIELDB, 17 



FIELDA+0(17) ,FIELDB+0 



FIELDS, FIELDX, 540 



FIELDY+0 (256) , FIELDK + 
FIELDy+256(256),FIELDX+256 
FIELDy+512 (28) ,FIELDX+512 



OUTPUT, tJA.ME, 20, ADDRESS, 75, MANNUM, 5 



OUTPUr+0(20) ,NAME+0 
OUTPUr+20(75), ADDRESS+0 
OUTPUT+95(5) ,MANNUM+0 



^^£t£§§§_^^iii§tment_of _Fields 

An operand within the macro instruction 
containing the symbolic name of a source or 
destination field may be address-adjusted 
provided that the total length of the 
operand does not exceed eight characters. 
For example: 

r T 1 

lOper- 1 I 

I ation 1 Operand | 

^ ^ ^ 

I GMOVE I OUT+100,CITY, 35,3rATE,20, J0B+12,4| 
I. + _ ^ 

I MVC I OUT+IOO+O (35) ,CirY+0 ] 

I MVC 1 OUT+100+35(20), STATE+O j 

JMVC I OUT+100+55(4) ,JOB+12+0 ] 

L i. J 

The address of the destination field in 
the second MVC instruction is higher than 
that of the first destination field by the 
length of the first source field. Like- 
wise, the address of the destination field 
of the third MVC instruction statement is 
higher than that of the second MVC instruc- 
tion by the length of the second scarce 
field. 
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RESERVING SPACE IN THE DESTINATION FIELD 

Occasionally it is impossible to eater one 
or more fields in an output record at the 
time the rest of the record is being built, 
With the 3M0VE macro instruction, 
a facility is provided to leave a space 
between the fields being moved. This is 
aceomplishea by entering a zero as the sym- 
bol for a source field with the length 
given as the number of bytes to be skipped 
before the next source field to be moved. 
For examnle? 





I 


|Col. 


Operat 


ion 1 Operand 

_ J. _ _ _ _ _ 


|72 
1 _ 




t 




GMOVE 


1 OUT, NAME, 20, ADDRESS, 3 0,0, 
|54,SERNO,5, JOB, 16 


1" 




J _ _ _ __ 


-4-- 


MVC 
MVC 


iour+0(2 0) ,NAME+0 
iour+20(30),ADDRESS+0 




MVC 


|OUT+104(5) ,SERNO+0 




MVC 


|OUT+109(16), JOB+0 





In the example above, the operand field 
of the GMOVE macro instruction contains the 
addresses of five source fields: NAME, 
ADDRESS, 0,SERNO and JOB. The symbol for 
the source field together with the length 
specification of 54 cause the bytes to be 
skipped from address OUT+50 to address OUT+ 
103 inclusively. 



USE OF THE SUBROUTINE FACILITY OF THE GMOVE 

To obtain a generated subroutine with the 
GMOVE macro instruction, write the n[iacro 
instruction in the same manner as if a sub- 
routine were not desired and write a unique 
name in the name field of the macro 
instruction. The length of the name must 
not exceed seven characters. The symbolic 
name preceded by an E must also be unique. 

An entry in the name field will cause 
the generation of the subroutine. The sub- 
routine, once established, can be used by: 

• Coding the unique symbolic name in the 
name field. 

• Coding GMOVE in the operation field. 

Up to five closed subroutines can be 
generated within each control section. 

A subroutine thus generated can only be 
used in the control section in which it is 
generated. Generation of a subroutine in 
one control section will cause the macro 
generator to "forget" all subroutines 
aenerated in orevious control sections. 



The entry in the name field of a GMDVE 
macro instruction which generates a subrou- 
tine is used as the name of the entry point 
of the routine. The name preceded by an E 
is equated to the next sequential instruc- 
tion following the macro instructioa. 
Register 9 is used to link a generated sub- 
routine. The previous coatents of register 
9 are lost. If you wish to save the con- 
tents of register 9, it is your responsibi- 
lity to save and restore it. 



The operands of a GMOVE macro instruc- 
tion that link to an established subroutine 
are ignored and may be omitted. It may be 
desirable to include all operands in each 
usage to ensure that the operands are pre- 
sent in the first occurrence during an 
assembly. 



The following example shows the sabroa- 
tine facility of the SMOVF macro. 



The first and the third box show macro 
instructions as they might be coded in a 
source program. The second and fourth box 
show the source statements generated on 
account of the macro instructions. 



1- 



f -f- 



Name 



T T 

Oper- 
ation 



COL 



COL 



* 
ECOL 



COL 



GMOVE 



LH 

MVC 
MVC 
MVC 

hltX7f~* 

Duv c- 

MVC 
MVC 
MVC 
MVC 
MVC 
MVC 
BR 

DC 



JMOVE 



BAS 



Operand 



T 1 

I col. 
172 



DUTREC , SERNO, 4 , NAME , 20 , ^ 
DRESS, 30, CITY, 25, STATE, 1 
,0,25,INPUT1,540,INPUT2, 
60 

9, ECOL 

START OF GMOVE SUBROUTIN 

O0TREC+0(4),SERNO+0 

OaTREC+4 (20) ,NAME+0 

OUTREC+24(30) ,ADERESS+0 

OUrREC+54 { 25) , CITY+O 

OUTREC+79(15) ,STATE+0 

OaTREC+119 (256) , INPJTl+O 

OUTREC+375 (256) , INPaTl+2 

OUTREC+631(28),INPUri+51 

OUTREC+659 (256) ,INPUT2+0 

OUTREC+915(4), INPaT2+256 

9 

END OF GMO\/E SUBROOriNE 

Y(*+2) 



Di- 

5|- 
2|- 



56 
2 



9, COL 



Note that subroutines can be establishea 
without using the subroutine facility as 
shown in the example. This can be acco:ap= 
lished by using the macro instruction to 
generate in-line coding within a closed 

<=:nHTT>iTt--i nci_ 
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MAIN-STORAGE COHSIDERAnONS FOR GMO^E 
SUBROUTINES 

In the preceding example, 72 bytes of main 
storage were used for the two macro 
instructions. If the subroutine had not 
been used, 120 bytes of main storage would 
have been required. Eight additional bytes 
of main storage are used when a subroutine 
is established and each request for the 
subroutine requires four bytes. 

The amount of main storage that is saved 
is a function of how many MVC instructions 
are generated in the subroutine. The use 
of a GMOVE subroutine containing only one 
MVC instruction does not save main storage 
unless it is used six times (including the 
initial time). It would actually take 
extra main storage if used less than five 
times, even if no additional instructions 
were required to save the contents of 
register 9, 



ERROR CHECKING 

Error checking is performed on the operands 
in a GMOVE macro instruction. 



the GMOVE macro. This can be accomplished 
by using the GMOVE macro instruction to 
generate in-line coding within a closed 
subroutine. 



USE OF GLOBAL SET SYMBOLS WITHIN THE GMOVE 
MACRO DEFINITION 

To ensure a correct assembly of a macro 
instruction, you must avoid any conflict in 
the use of SET symbols. The GMOVE macro 
instruction makes use of global SET symbols 
as described below. 

1, The SETC symbol 6CG1 is used in the 
GMOVE macro definition, and must not be 
used to communicate a value past the 
occurrence of the GMOVE macro instruc- 
tion. In addition, if one or more sub- 
routines are generated, the SETC sym- 
bols ecGlO to gCG15 are used. 

2. If no subroutines are generated, the 
GMOVE macro instruction is properly 
generated regardless of the setting of 
any global SET symbols, either before 
or between occurrences of the GMOVE 
macro instruction. 



Generation is always terminated if eith- 
er the destination field or the first 
source field and its length are not speci- 
fied. An appropriate error message is 
generated. 

If an invalid source field length (zero 
or non-numeric) is specified or if the 
length of any other source field is 
omitted, generation is terminated. An 
appropriate error message is generated. 

If an attempt is made to generate the 
sixth subroutine in the same control sec- 
tion,, the GMOVE routine is generated in- 
line. An appropriate error message is 
generated. 

Note that subroutines can be established 
without using the subroutine facility of 



3. If one or more subroutines are 

generated in one control section, the 
SETC symbols gCGll to &CG15 are used by 
the Assembler to store subroutine 
names. Ttiey must not be used between 
the generation of the GMOVE subroutine 
routine and the last use of the GMOVE 
macro definition to link to a sabroa- 
tine routine. The SETC symbol gCGlO is 
used to store the name of the control 
section, and therefore: 

a. £CG10 must not contain the name of 
the control section before the 
first subroutine is created. 

b. gCGlO must not be changed until all 
subroutines and linkages to subrou- 
tines in a control section have 
been generated. 
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C MEND J 



Figure 12. Flo*?chart of the GMOVE Macro Instruction 
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Assembly o£ a Program (DPS/TPS) 



DPS^onl ^ : 

Assembler source programs can be either 
assembled and executed in one job 
(asseiPble~and-eK8cute function) or 
assembled and executed in separate jobs. 
In an assemble-and-execute job, the object 
program (in addition to being executed 
iminediately) may be punched into cards or 
written onto magnetic tape. 

When the assemble-and-execute function 
is to be used, the following conditions 
must be fulfilled: 

• The program must not require linking 
and/or relocation. 

• The core-Image Maintenance program must 
be contained in the core-image library 
of the disk-resident system, 

• A relocatable area must be available in 
the disk-resident system. 

Object programs that require linking 
and/or relocation must be processed by the 
Linkage Editor program before they can be 
executed and/or included in the core-image 
library. 



DPS/TPS£^ 

Assembler object programs that do not 
require linking and/or relocatiDn can be 

ovcir^Ti-4-Cif^ r?-i ve2ir*4-'\ XT '""^^^If rTiJi^ rOl Of thS 

disk-resident (tape-resident) systen. Use 
the execute-loader, function for this pur- 
pose. They can also be included in the 
core-image library of the disk-resident 
(tape- resident) system, from where they can 
then be loaded and executed. 



The files and corresponding input/output 
devices used for a program assembly are as 
shown in Figures 14 and 15. 



Note that for TPS the literal Workfile 
and Text Output file may be assigned to the 
same tape unit. 



Job Control Statements System Tope Work Tope 

( SVSRES j ( SYSOOO J 



SYSRDR * 



AjsEit&ler Cc3fsfroi 
Stctements and 
Source Program 

/ 

SYSIPT * 



Logging 
Listing 



SYSLOGor 
SYSLOG and 
SYSLST 



CPU 





Object Program 



SYSOPT -N. 



Literals 
Crossreference Listing 



Job Control Statements 



SYSRDR 



( 



SYSRES** 



System Disk 
(Object Program in 
Relocatable Area) 



Assembler Control 
Statements and 
Source Program 




Listing 
Logging 



Object Program 



* The sairte unit may be used for both reoding control cards and the 
source program. 

** The same tope drive may be used for both object-program output, 
literals, and Crossreference Listing. 

Figure 14. Input/Output Devices Used for a 
Program Assembly with the TPS 
Assembler 



* The same unit may be used for reading control cards and the source program. 

'* The same disk drive may be uMd for SYSRES and SYSOOO or SYSRES and 
SYSOOl but not for SYSOO and SYSOOl . 



Figure 15. Input/Output Devices Qsed for a 
Program Assembly with the DPS 
Assembler 



Job Control Statements 

Device assignments are normally given at 
system generation time. If, however,, these 
assignments were not given at that time or 
if you wish to alter any of the assign- 
ments, ASSGN job-control statements as 
shown below may be used to make the desired 
assignments. 



// JOB a.SSEMB 
or 

// JOB ASSEMB,p.- 
name 



Required if the 
source program is to 
be assembled only. 
Required if the 
assemble- and- execute 
function is to be 
used. (DPS only) . 



// DATE ,. 



Required if the 
assembly is the first 
job in the system 
run. 



// ASSGN SYSLOS,,, 



Optional. 
Refers to the 
printer, which lists 
job control state- 
ments if you include 
a LOG control 
statement- 



// ASSGN SYSLST, 



Required. 
Refers to the 
printer, which prints 
the program listing 
and other 
information. 



// ASSGN SYSIPT,., 



Required. 
Refers to the 
card reading device 
(or magnetic tape 
drive) (DPS only) 
on which the program 
control statements 
(if any),, the 
Assembler source 
program, and (if card 
input) an end-of-file 
card are read. 



// ASSGN SYSOPT,, 



\- 



Required if an object 
program is to be 
produced in cards or 
on magnetic tape. 
Refers to the card 
punching device or 
magnetic tape drive 
on which the object 
program is to be 
produced. 



// ASSGN SYSOOO,.. 



Required, Refers to 
the disk (tape) drive 
containing workfilel. 



// ASSGN SYSOOl, . 



Required. 
IPS: Required. 
DPS: Required if two 
workfiles are ased 
see (A^^ORK) . Refers 
to the disk (tape) 
drive containing 
workf ile2. 



// ASSGN SYS002, . . 



IPS 

Optional. For 
literals. Jlaybe same 
as for SYSOPT. 



DPS 

// VOL SYSOOO, iJORKl Required for 

// DLAB ... workf ile 1. 
// XTENT ... 

// VOL SYSOOl,, W0RK2 Required if two 

// DLAB ... workfiles are used. 

// XTENT ... (See AMORK) . 



|// EXEC 
L 



Required. 



Program Control Statements 

Program control statements are supplied for 
use by the Assembler program. These state- 
ments indicate which of the Assembler pro- 
cessing options the Assembler program is to 
perform or provide. The Assembler control 
statements are : 

• AWORK - Assembler Work File statement, 

• AOPTN - Assembler Option statement, 

• ICTL - Input Format Control statement, 

• ISEQ - Input Sequence Checking statement , 

The AWORK statement is used for the disk- 
resident Assembler only. All four control 
statements have the same format as Assembler 
language instructions. AOPTN, AWORK, ICTL, 
llnd ISEQ appear in the operation field, 
while the various options are specified as 
operands . 



AWORK 



ASSEMBLER WORKFILE STAIEMENT 



An AWORK Statement indicates the nunber of 
work areas the DPS Assembler is to use in 
processing source-program statements. The 
Assembler can use either one or two work 
areas. Two work areas are provided only if 
two disk drives are available. In this 
case, one work area can be assigned to each 
disk drive. Using two work areas on separ- 
ate disk drives shortens the processing 
time required by the Assembler. 
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The format of the AWORK statement is: 

r T 7 — T — '■ 1 

j Name I Operation j Operand | 

^_ + + ^ 

I I aiJORff 1 n j 

L i X J 

The AWORK statement requires one 
O'^erand.(n) 6?hich must be either the digit 1 
or the digit 2. If the digit 1 appears as 
the operand, the Assembler assumes one work 
area. If the digit 2 is used, the Assembl- 
er assumes two work areas . If no awork 
statement is provided, the Assembler 
assumes one work area, 

A work area must always be assigned to a 
disk area consisting of contiguous storage 
positions. This is accomplished by using 
the proper job-control (XTENT) statements. 
For details concerning XTENT state.nents, 
refer to the 3RL publication IBM Systecu/36Q 
Model _20,jt^,Disk_Programminq S ys tem, ^Control 
and Servi ce P rograms, Form'"GC2 14-9006. 

The AWORK statement must precede any 
AOPTN statements used and the source 
statements. 



AOPTN (ASSEMBLER OPTION) STATEMENTS 

AOPTN statement (s) may be used if the norm- 
al Assembler output is to be altered. 
AOPTN statement (s), must be written preced- 
ing any other source-program statements, 
even an ICTL statement. Figure 16 shows 
the option indicators that can be used. 

The normal Assembler output consists of 
two major files: the object program and 
program listing. The object program con- 
sists of three types of information: the 
External Symbol Dictionary (ESD) , Text 
{TKT)!, and the Relocation Dictionary (RLD) . 
The program listing consists of five lists 
of information: ESD listing, source and 
object program listing, RLD listing, error 
listing* and symbol table. 

The format of the AOPTN statement is: 



r T T ' 1 

I Name) Operation I Operand | 

^ _^ + _ ^ 

I I AOPTN j option symbol (s) | 

L i. i. J 

The option (s) that may be supplied in 
the AOPTN statement are shown in Figure 16; 
each option is identified by a symbol which 
is used in the AOPTN statement. Each 
option of the AOPTfJ statement may be speci- 
fied in a different AOPTN statement, or 
they may appear as multiple operands 
(separated by commas) in a single 
statement. 



r T- 

j OPTION j 



MEANING 



SYMBOL 1 

i _ 


— - 1 — — - - — 

NODECK 1 Object program (ESD, TXT, and 

1 RLD data) not produced in cards 
|or tape. (Their appearance in 
jthe program listing is not 
1 affected. ) 
,„„„^=i===„= ==^ =^ .=_===== 

NOESD jNo ESD data will appear in the 
1 object program or the program 
1 listing. 

f 

NORLD I No RLD data will appear in the 
1 object program or the program 
1 listing. Ttius, the object pro- 

1 gram will be absolute. 

J _ _ ^ 


T ' 

NOLIST |The program listing will not 

1 appear. (A statement indicat- 
jing the number of errors in the 
j program will, nowever, be 

1 printed.) 

_ 1 _ _ _ 


r — — — — 
NOERR |The error listing will not 

{appear in the program listing. 

j (A statement indicating the 

I number of errors will, however, 

1 be printed.) 
1 

NOSYM 1 Neither a Table of Defined Sym- 
1 bols nor a Crossreference List 
jwill appear in the program 

1 listing. 

1 _ 


— f . - — 

NOVERIFY*! Intermediate write operations 

jon disk are not verified, 
^ 

CROSSREF+jA cross-ref erence listing will 
i appear instead of the symbol 
1 table listing. The cross- 
1 reference listing contains all 
jthe symbols used in the program 
1 and the number of the statement 
jih which they were used (see 
1 Appendix G) . Note£^ The total 
1 number of symbol definitions 
I and references must not exceed 

112,288. 

,j. 


— -f- - - 

LITERAL** 1 Literals will be processed. If 
[LITERAL is omitted, literals 
jwill not be processed. 
JNOte: Tlie user must be sure he 
jhas enough tape units for lit- 
|eral processing. 
1 _ :_ 


— j. _ _ _ — 

ENTRY JAn ENTRY card will be produced 
1 at the end of the output text. 



L X J 

* For the disk-resident Assembler only. 

** For the tape-resident Assembler only. 
(Not required for DPS,) 

Figure 16. AOPTN Card Option Indicators 



Note: No object deck will be produced in 
case of the LIMIT EXCEEDED error regardless 
of the option specified. (See A22§D^i2?_IIi 

Assembler Diagnostic Messages) . However, 

a listing will appear. 



Non-standard operand specifications 
other than the two above are not allowed. 



The AOPTN statements must precede the 
source statements and follow the AiJORK sta- 
tement, if any. 



ISEQ — INPUT SEQUENCE CHECKING 

The ISEQ instruction is used to check the 
sequence of input cards. The format of the 
ISEQ instruction stateiient is as follows: 



ICTL — INPUT FORiyiAT CONTROL 

The ICTL instruction allows you to alter 
the normal format of your program state- 
ments. An ICTL instruction statement, if 
any, must precede all other statements in 
the source program except the A.WORK and 
AOPTN statements, if any, and must not. be 
used more than once. Only the following 
two formats of the ICTL instruction are 
allowed: 

either: 

r T r^ 1 

I Name | Operation} Operand | 

|. 1 ^ ^ 

1 Blank I ICTL \ 25 | 

L 1 J. J 

or: 

r T T 1 

(Name ] Operation | Operand | 

|. 4 4 ^ 

j Blank I ICTL 1 25,71,3 8 | 

L X X J 



In the first case, the operand specifies 
that the begin column of the coding format 
is 25. Since the end column is not speci- 
fied, it is assumed to be column 71. No 
continuation lines are permitted. 



In the second case, the begin column is 
jolumn 25, the end column is column 71, and 
the continue column for macro instructions 
is column 38. 



r T T 1 

I Name [Operation (Operand | 

^__ 4 1 ^ 

1 Blank I ISEQ I Two decimal values of | 
I I I the form l,r; or blank | 

L i. 1 J 



The operands 1 and r, respectively, spe- 
cify the leftmost and rightmost columns of 
the field in the input cards to be checked. 
Operand r must be egual to, or greater 
than, operand 1. Operand 1 must be greater 
than 72. The field specified hy operands 1 
and r must not be greater than seven bytes. 



Sequence checking begi 
card following the ISEQ s 
parison of adjacent cards 
eight- bit internal collat 
Appendix J). The input c 
be in sequence if the val 
checked in the second car 
or equal to that of the f 
statement is found to be 
warning is given but no e 
appears in the diagnostic 



ns with the first 
tatement. Corn- 
makes use of the 
ing sequence (see 
ards are said to 
ue in the columns 
d is greater than 
irst card. If a 
out of sequence a 
rror message 
s- listing. 



An ISEQ statement with a blank operand 
terminates the checking operation. The 
next ISEQ statement initiates a new check. 



Sequence checking is only performed on 
statements contained in the source program. 
Statements generated by a macro instruction 
are not checked for sequence (see Aopen3ix 
J). 
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Cataloging a Macro Definition 



The macro library is maintained by the 
Macro Maintenance Program (MM?^INr) .- Ose 
this program to add or delete any number of 
macro definitions to or from the macro 
library. 

Job Control Statements (DPS) 

The job control statements required for a 
MMAINT run are: 

r 1 

|// JOB MMMNT Required. | 

I// naTP ,.. Required if first j 
I job after IPL. | 
^ ^ 

|// ASSGN SYSLOG,... Optional. | 

|. ^ 

|// ASSGN SYSLST,... Optional. | 

Y ^ 

\// ASSGN SYSIPT,... Required. | 

|. . ^ 

|// VOL SYSIPT, SYSIF Required only if | 
I SYSIPT I 
I // DLAB ... Required refers | 
I to a I 
I // XTENT ... Required disk drive. j 
|. ^ 

\// EXEC Required. | 

L J 



Program Control Statements 

Tiie ■nroaram. control statements required to 
catalog a macro definition in source format 
are: 



r 1 

I // CATAL I 

^ ^ 

I // END I 

L J 



You may use any numuer oi macro aerini- 
tions m a MMAINT run, but each macro defi- 
nition must be preceded by a // CATAL sta- 
tement and the last definition must be fol- 
lowed by the // END statement. 



For other (optional) progra.ti control 
statements see the SRL publications IBM 
§.i[Stem/36 0_Model_20j^_Disk_PrC3rammi 

terrji; Control_and_Service_Pro3raTis, Fdcti 

3224-9006, or IBM_System/360_Model_20f__rape 

Program, Form 3C2!4-9000. 



Job Control Statements (TPS) 

The job control statements required for an 
MMAINT run are: 



j // JOB MMAINT 
h 



Required. 



|// DATE ... 

I 



Required if first 
job after IPL, 



j. 

|// ASSGN SYSLOG, 

I- 

|// ASSGN SYSLST, 



Optional. 
Optional. 



j. „ 

|// ASSGN SYSIPT, 

h 

|// ASSGN SYSOOO 
j. 

|// EXEC 

L__-._. .™— 



Required. 
Work tape. 
Required. 
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Output Listings 



If listing is specified, a list is prinred 
during the assembly run. The form of the 
lists and the type of information contained 
therein are shown in ?lppendix G. 



STATEMENT INCOMPLETELY ASSEMBLED (SIA) 



If the statement is a nachine instruction, 
the storage area required for the instrac- 
tion is reserved and filled with zeros. 



Source Program andPata Checking 
(Assembler) 

Diagnostic messages are printed if inco- 
rrectly coded instructions are detected by 
the Assembler program during an assembly 
run. Both the number of the related 
source-program statement and the action 
taken by the Assembler program are printed 
together with each message. If more than 
one error is detected within a source- 
program statement, the diagnostic messages 
for all errors detected are listed. The 
dissembler program then takes the action for 
the severest error detected, and the appro- 
priate action is printed with the diagnost- 
ic messages. 

Notification of the types of Assembler 
actions that may occur during an assembly 
run are listed below in the order of their 
severity with the severest type first: 



ASSEMBLY IN ERROR (AIE) 

The user's program cannot be executed. The 
assembly run is completed, but only diag- 
nostic messages preceding the AIE message 
may be considered valid. 



STATEMENT TREP^TED AS COMMENT (STC) 



STATEMENr ASSEMBLED {Sh) 

The individual diagnostic messages are 
listed in Appendix H. 



Source Progra m and Dat a Checking (MMAINT)^ 

A diagnostic message is added to an inco- 
rrect statement. Only one error can be 
detected within a statement. 

If an error has been detected within a 
macro definition, sequence symbols are not 
processed and the macro definition is not 
catalogued. If an error has been detected 
within a prototype statement, the macro 
definition is not checked for further 
errors. 

The TPS macro maintenance program performs 
a check to determine whetner the contents 
of columns 73 through 30 of a statement are 
out of sequence. In case of a sequence 
error, the statement is flagged with the 
letter S. If no other errors are contained 
in the macro definition, it is catalogued. 

The individual diagnostic messages are 
listed in Appendix I. 
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Language Compatibility 



The IBM S7Stem/360 Xlodel 20 DPS/rP3 
Assembler and macro Languages are closely 
patterned after the Basic Programtning Sup- 
port (BPS) and Disk and Tape Operating Sys- 
tems (DOS/TOS) ?\ssembler and macro lan- 
guages except where differences in machine 



Model 20. 
follows: 



These differences are as 



There are seven yiodel 20 machine 
instructions that are not contained in 
the instructions sets of higher System/ 
360 models: 
CIO XIO TIDE SPSt-J BA.S Br^SR, HPR. 

If programs that were written for the 
Model 2 are to be executed on higher 
System/360 models, the use of these 
instructions can be avoided as follows: 



instruction may be avoided by using 
IOCS. 



The number and length Df Model 20 regis- 
ters differ from higher System/360 
iTiodels . 

a. Model 20 has only eight registers 
(8-15). In addition, it has eight 
pseudo base registers 0-7) with 
fixed contents. The pseudo base 
registers contain 0, 4096, 8192, 
12288, 16384, 20480, 24576, and 

i. uKJ I i. I respectively, tnus permit — 

b. yiodel 20 registers have a length of 
only 2 bytes. 



a. CIO, XIO, TIOB, and SPSW instruc- 
tions may be avoided by using IOCS 
macro instructions for input/output 
operations. 

b. BAS and BASR instructions must be 
replaced by BAL and BALR, respec- 
tively, with consideration given to 
the functional differences between 
Model 20 and higher System/360 
models. 

c. HPR instructions raust be replaced 
by branch instructions. 

The Model 20 Program Status Word (PSW) 
has a length of only four bytes. 

The Model 2 Channel Command Word has a 
length of only 6 bytes and must be 
aligned at a half-word boundary. The 
Model 20 Assembler instruction is DCCW 
instead of CCW. The use of the DCCW 



Note: Y-type address constants two bytes 
in length must not be specified for System/ 
360 models having a storage capacity of 
more than 65535 bytes. No 5f-type constants 
must be used in programs to be executed 
under control of the Operating System/360. 

Programs written in the Model 20 Basic 
Assembler language can be assembled by the 
Model 20 DPS/TPS Assembler program unless 
blank operands are used in Assembler or 
machine instructions. 

The instructions LCLA, LCLB, 3BLA, 3BLB, 
and 3BLC which are discussed in the Disk 
and Tape Operating Systems, Assembler Spe- 
cifications are ignored. The use of LCLC 
is illegal because local SETC symbols are 
not allowed. 

The relationships between the individual 
Assembler languages are as shown in Appen- 
dix F. 
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Glossary 



Absolute _ Addr es 5 : 

1, "" An^address that is permanently assigned 

by the machine designer to a storage 

location. 
2, A pattern of characters that identifies 

a unique storage location without 

further modification. 



Access Method: Any of the data management 
techniques available to the user for 
transferring data between main s<-orage and 
an input/output device. 

Ac cess T ime : 

1. The time interval between the instant 
at which data is called for from a 
storage device and the instant delivery 
is completed, i.e.,, the read time. 

2. The time interval between the instant 
at which data is requested to be stored 
and the instant at which storage is 
completed, i.e., the write time. 

Address: 

1. An identification (name, label, or 
number) for a register,, location in 
main storage, or any ottier data source. 

2. Any part of an instruction that speci- 
fies the location of an operand for the 
instruction. 

3. (v.t.) In BSCA IOCS a technique by 
which the CPU prepares a remote station 
to receive a message. 

^^^E.®§§._£2!l^tl.Bt; : A value, or an expres- 
sion representing a value, interpreted as a 
main storage address. 

Allocate; To assign storage locations or 
areas of storage for a specific job. 

Allocated Variabl e; A variable with which 
storage has been associated. 

^j:Slj.^]5g!^ig-'^,^^ ^^^"^ ^^- ^^Y °f "th® charac- 
ters #, $, a, and the characters of the 
alphabet (A through Z) . 

Altzerna te Dri ve: When two drives are given 
for one multi-volume file, the first drive 
is the primary drive and the second drive 
is the alternate drive. Tape reels or disk 
packs are mounted such that the first is on 
the primary drive, the second on the 
alternate drive, the third on the primary 
drive, etc. 

Arithmetic Data: Numeric values used in 
arithmetic operations (add, subtract, mul- 
tiply, and divide). 



Arithm etic O perato rs : Any of the prefix 
operators (+ and -) or the infix operators 
( + f -I * t /, and *♦). 

+ = plus / = divide 

- = minus *♦ = raise to a power 

* = multiply 

Ascending Order: A sequence of records 
such that the control fields of each sac- 
cessive record collate equal to or higher 
than those of the preceding record. 

Ascending Sequence ; See !\.sc ending Order. 

ASCII: See USASCII. 

Assemble: To prepare a machine-langaage 
program from a symbolic-language program b/ 
substituting absolute operation codes for 
symbolic operation codes and absolute or 
relocatable addresses for symbolic 
addresses. 

Asse mble-and-Execute : A job setup which 
provides for an assembly of a source pro- 
gram followed immediately by the execution 
of the assembled program. 

Assemble- and- Go ; See Assemble-^nd-Execute. 

Assembler : A program that assexibles. 

Assembler L a ng u age: A symbolic language 
(used to write source programs) which 
enables the programmer to use. all machine 
functions as if he were coding in machine 
language. 

Attribute: A characteristic; for example, 
attributes of data include record length, 
record format, data file name, associated 
device type and volume identification, ase, 
creation date, etc. 



Backup and Restore Program (BACKUP) : 
service program that can be used to 



A DPS 



1. create a backup tape from one or more 
disk files and one or more card files, 

2. create a backup disk from one or more 
disk files, and 

3. restore each backup file to its origin- 
al medium, 

U. Change the volume and file serial 
numbers. 

Base: 

1, A reference, value. 

2. A number that is multiplied by itself 
as many times as indicated by an 
exponent. 
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3. the number system in terms of which a 
value is represented. Examples: the 
decimal base (ten), the binary base 
(two), the hexadecimal base (sixteen). 

Bas e_Addr es s : A given address fro.u which 
an effective address is derived by combina- 
tion with a relative address. (See 
DiSDlacement) . 



Character : 

1. One of a set of elementary signals 
which may include decimal digits 
through 9, the letters A through Z, 
punctuation marks and any Dther symbols 
acceptabla to a computer for reading, 
writing,, or storing. 

2. An 8-bit (1-byte) code that can be 



Binary; 

1- A characteristic or property involving 
a selection, choice, or condition in 
which there are two possibilities. 

2. The numeration system with a radix of 
two. 

Bina ry Coded Decifnal; A decimal notation 
in which the individual decimal digits are 
each represented by a group of binary 
digits, e.g., in the 8-4-2-1 binary coded 
decimal notation, the number twenty-three 
is represented as 0010 0011 whereas, in 
binary notation, twenty-three is repre- 
sented as 10111. 

Binary Digit ; The smallest unit of infor- 
mation. It can have either of the two 
binary values zero or one. 

Binary ^Search: A search in which a set of 
items is divided into two parts , where one 
part is rejected, and the process is 
repeated on the accepted part until the 
item with the desired property is found. 

Bit: See Binary Digit. 

Buffer: An area in main storage used as 
intermediate storage in I/O operations. 
During input, data is read into a buffer; 
during output, data is written froni a 
buffer. 

B^te: The smallest addressable unit of 
information in System/360. Every byte con- 
sists of eight bits, each having a value of 
zero or one. 

Card-Resident System: Consists of the card 
control programs: Initial Program Loader, 
(Basic) Monitor, and Job Control. Used for 
the execution of object programs contained 
in punched cards . 

Cat alog ; (v.t-") The action of including 
an object program or program phase in the 
core- image library as a temporary or a per- 
manent entry. 

ChainingFile; See Chaining. 

Chaining: A record retrieval technique. 
The control information contained in 
records of one (the chaining) file is used 
to access a record in another (the chained) 
file. The chained file nnust be organized 
indexed-sequentially. 



Character S^t; An ordered set of unigus 
representation called characters. 



CMAIMT: See Core-Image Maintenance 
Program. 

Code; 

1. (v.t.) To represent data or nachine 
instructions in a symbolic form that 
can be accepted hy an apprDpriate pro- 
cessor program. 

2. Machine instructions produced on the 
bases of coded instructions (see Object 
program) . 

Collating Sequence: The relative order of 
characters on which a sort or merge is 
based. 

Comment; A string of characters used for 
document at ion . 

Communication_Region ; An area of the 
(Basic) Monitor. Contains date, storage- 
capacity specification, UPSI byte, user 
areas 1 and 2, program-nane area, and 
various control bits used by the system. 
Provides for intra-program. and inter- 
program communication. 

Compile- and- Execute; A job setup which 
provides for a compilation of a source pro- 
gram followed immediately by the execution 
of the compiled program. 

Compile-and-Go: See Compile and Execute. 

Compi ler: A program which translates a 
program written in a problen-oriented (RP3, 
PL/I„ etc.) language into object code. 

Compil er _Control_3tate me nt; Any one of the 
control statements in the input stream that 
defines the requirements and options of a 
job to the compiler. 

Concatenation: The operation that connects 
two character strings in the order indi- 
cated to form one string whose length is 
equal to the sum. of the lengths of the two 
strings. 

Control Programs: A set of programs which 
provide the management functions necessary 
for continuous operation of a computing 
system. 



Control Section; The smallest unit of a 
program^that can be separately assembled or 
compiled. All elements of a control sec- 
tion are in constant relationship to each 
other. 

Control Statem ent ; Any of the statements 
in the input to a specific job that define 
the requirements of the job or its options. 

Conv er sion; The process of changing from 
one form of representation to another. 

Copy System Disk Program (COPSYS) ; A DPS 
service program" used to copy the system 
file stored on the system disk pack onto 
another disk pack. 

Copy Syst em T ape Program; A TPS service 
program contained in punched cards. Copies 
user's tape-resident system from one tape 
onto another. 

Core -I mage Directory;, ,A table on the sys- 
tem disk pack used as directory to the pro- 
gram (core- image) library. Each directory 
entry contains information about a program 
phase and its location in the library. 

^2£§I.IS§:3§_Z2£53§.i • ^ data format identical 
to that used in main storage. Programs or 
program phases stored in the core- image 
library constitute data in core-image for- 
mat. Such programs or program phases are 
ready for direct loading from the core- 
image library into main storage. 

Q2£2l.IS!^3§_iii^r ary ; An external-storage 
area containing the Job Control program, 
other IBM-supplied programs (except the 
[Basic] Monitor and the IPL),, and user's 
problem programs. Permits retrieval of 
programs or program phase by the Monitor. 

Cure-Image Maintenance Program ; A system 
service program. Updates the core- image 
library and directory. Is used to add and/ 
or replace and/or delete phases and the 
(Basic) Monitor. 

Core-Image Program ; A system service pro- 
gram that permits the printing, writing 
and/or punching of one or more entries of 
the core- image library. 

CPSYS; See Copy System Tape Program. 

CSERV; See Core-Image Service Program. 

Data; 

1. A representation of facts, concepts, or 
instructions in a formalized manner 
suitable for communication, interpreta- 
tion, or processing by humans or by 
automatic means. 

2. Any representations such as characters 
to which meaning is, or might be, 
assigned. 



Data File; A collection of related records 
treated as a unit consisting of data in one 
of several prescribed arrangements and de- 
scribed by control information to which the 
system has access. 

Data F ormat Item ; Specifications in the 
program that describe data items in the 
stream. Such data items may be characters 
or arithmetic values in character form. 



Dataltem; A single unit of data. 

Data Set; See data file. 

Data Transmi ssion; The sending of data 
from an external storage device to main 
storage and vice^versa. 

Decimal; The number system based on the 
value 10. 

Decimal Digit; One of the characters 
through 9 in a decimal number. For 
example, in the number 567, each of the 
numeric characters 5, 6, and 7 is a decimal 
digit. 

S§2iS!§l_22i2t = The radix point in decimal 
representation . 

Delimiter; Any valid special character or 
combination of special characters used to 
separate items of data, such as identi- 
fiers, constants, and statements. 

Descending Order; A sequence of records 
such that the control fields of each suc- 
cessive record collate equal to or lower 
than those of the preceding record. 

Descending Sequence; See Descending Order. 

Device Address ; See Physical Device 
Address and S/mbolic Device Address. 

Device Independence; The ability to 
request input/output operations without 
regard to the characteristics of the input/ 
output devices . 

Direct Access; Retrieval or storage of 
data by a reference to its location on a 
volume rather than relative to the pre- 
viously retrieved or stored data. 

Direct Ad dre ss; An address that specifies 
the location of an operand without need of 
modification such as adding a base address 
value. 



Directory; See 
Macro Directory 



;ore-Image Directory or 



Directory Entry; A unit of infDrmation in 
the core-image or macro directory. (Phase 
header or macro identifier.) 
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DirectorY Serv i ce Program; A system ser- 
vice program. Causes printing of the core- 
image and/or macro directory and/or system 
directory. 

Disk-Resi den t System; Contains the Mon- 
itor, the disk-resident portion of the IPL, 
and the Job Control program. May contain 
anv one or a combination of the following: 
IBM- supplied or user-written programs, 
macro definitions,, and a relocatable area. 

Displacement; h value, or an expression 
representing a value, which is added to a 
base address to obtain the effective 
address, 

DPS Control Programs: A collective term 
used to refer to the Initial Program Load- 
er, the Monitor, and the Job Control 
progracu. 

DS ER V: See Directory Service Program. 

DumQ: 

1. (v,t.) To copy the contents of all or 
part of main storage or an external 
storage onto an output device, so that 
it can be examined. 

2. (n.) The data resulting from 1. 

3. (n.) A routine that will accomplish 1. 

EBCDIC : (Extended Binary Coded Decimal 
Interchange Code) A specific set of eight- 
bit codes standard throughout System/360. 

Edit ; To modify the form or format of 
data, e.g., to insert characters such as 
page numbers or decimal points or to delete 
characters such as leading zeros. 

Edit Pattern; A field composed of charac- 
ters of a special significance. These 
characters control such editing functions 
as zero suppression, insertion of a float- 
ing dollar sign, etc. 

Effective Address: The absolute address 
that is derived by applying any specified 
indexing (base address value) or indirect 
addressing rules to the specified address. 
The derived effective address is actually 
used i^o identify the current operand. 

5Di^Y_Name; The symbolic address of an 
entry point. 

5S££^-E2i2t- ^^ ^ routine,, any place to 
which control can be passed. 

EOF Card; End-of-file card which signals 
the end of a logical set of input cards 
(/♦b in columns 1-3, where b = blank). 

EOF Record; End-of-file record which sig- 
nals the end of a logical set of input 
records (/*b in columns 1-3, where b = 
blank) . 



E3D; See External Symbol DictiDnar/. 



ESID: See External Symbol Identification, 



Exceptional Condition; An occurrence which 
can cause a program interrupt or an unex- 
pected situation such as an overfloiw error, 
or an occurrence of an expected situation 
such as an end-of-file condition that 
occurs at an unpredictable time. 



EXEC statement ; Sss Execi 



:atement. 



Executable Object Program; The set of 
machine instructions produced by a language 
translater and prepared for loading into 
main storage either by link-editing or by a 
a CMAINT run if an installation uses a 
disk-resident system; the set of machine 
instructions produced by a language trans- 
lator without further preparation if an 
installation uses a card-resident systeii. 

Execute; (v.t.) To carry out an instruc- 
tion or perform a routine. 

Execu te- Loader Function: The function of 
executing an object program that is not 
cataloged in the core-image library. The 
object program may be read from either a 
card-reading device or a tape drive or from 
the relocatable area. 

lli;§2!it.e_St at ement ; A Job ContrDl statement 
that designates a job by identifying the 
load module to be fetched and executed. 

Explicit addres sing; An addressing techni- 
que which requires the specification of all 
elements of on address (base and displace- 
ment) by means of absolute values. 

Exponent: In a floating-point constant a 
decimal integer that specifies the power to 
which the base of the floating-point con- 
stant is to be raised. 

Expression; An operand entry that consists 
of a single term or an arithmetic combina- 
tion of terms, normally representing an 
address value. 

External Storage: A storage device outside 
the computer capable of storing information 
in a form acceptable to the computer; for 
example,, cards or magnetic tapes. 

Ext er nal_S i^mbol : A control section name, 
entry point name, or external reference; a 
symbol contained in the external symbol 
dictionary. 

External_Symbol_Dict ionary_XESD) ; Control 
information associated with an object or 
load module which identifies the external 
symbol s In th=? '^lO'iule* 
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External Symbol Identif icationjESID),; 
ESID numbers are assembler-assigned poin- 
ters that are used by the Linkage Editor 
program to correctly recompute the address 
constants referred to in RLD entries. 



Fe ature; A function of a program, or a 
particular circuitry in a system device, 
that can be used to perform specific 
operations. 



Fetch: 

1. (v.t.) To read into main storage and 
pass control to phases or subphases. 

2. (n. ) The name of a control routine of 
the (Basic) Monitor that accomplishes 
1. 

Field; In a record or in a data stream, a 
specified area used for a particular cate- 
gory of data, for example, a number of 
character positions used to represent a 
wage rate or a number of bytes in main 
storage used to express the address of data 
in main storage. 

File: See Data File. 

£iM^zE9i2;t: Pertaining to a number system 
in which the location of the (decimal) 
point is fixed with respect to one end of 
the numerals according to some convention. 

Flag: Any of various types of indicators 
used for identification, normally a bit. 

Floating Point; Pertaining to a numeration 
system in which the position of the point 
does not remain fixed with respect to one 
end of the numerals. 

Format; The general makeup of data, a con- 
trol statement, or a record. 

Graphic; The visual representation of a 
character or symbol. 

Half -Byte; The leftmost or rightmost four 
bits of an eight-bit byte. Can contain 
representation of a digit or the sign of a 
number. 

Half word; Two adjacent bytes where the 
left byte is on a halfword boundary. 

Halfword Boundary; Any even-numbered 
addressable byte position in main storage. 

S§5^^§2i[I!§.]i' ^ number system using the 
equivalent of the decimal number 16 as a 
base. The values 0-15 are represented by 
the digits 0-9 and the aphabetic characters 
A-F. 

High-Order Digit: Leftmost digit of a 
decimal number. 



Identifier; A symbol whose purpose is to 
identify, indicata, or name a body of data. 



Implicit Addressing: An addressing techni- 
que that allocs the specif ication of symbol 
addresses. 



Index Register; A register whose conteat 
is added to the operand address prior to or 
during the execution of an instruction. 



I.Q.^i£§2t_^^^£S s s : An address tliat speci- 
fies a storage location which cDntains 
either a direct address or another indirect 
address. 

I2f i^_2£®£^t. 2^ • ^^ operator that defines 
an operation between two operands. 

Initialize: . To sat counters, switches, and 
addresses to zero, blank, or other starting 
values at the beginning of, or at pre- 
scribed points in, a computer routine. 

Initial Program Loader: k system control 
program. Loads (Basic) Monitor into main 
storage. Is used to assign physical I/D 
device addresses to symbolic addresses SYS- 
RDR and/or SYSRES. Places name of Job Con- 
trol program into communication region of 
(Basic) Monitor. The program must be 
executed at the beginning of a system run. 

Initial V alu e; A value placed into a 
register or a storage area at the beginning 
of an operation and used during the opera- 
tion for count purposes or control purposes 
or both. 

I.D.S§£_^§.S£2_I.Ii§t£li2£i20' ^ macro ins trac- 
tion contained in a macro definition. 

In^ut; The transfer of data from an 
external storage device to main storage. 

Input Job Stream: A sequence of Job- 
Control statements entering the system, 
which may also include input data. 

Input/Output Control System; k group of 
macro definitions which are contained in 
the macro library of the programming sys- 
tem. These macro definitions can be re- 
trieved from the library and tailored to 
the input/output requirements of the user. 

Inquiry Program; A program whose execution 
is initiated by an inquiry request on the 
printer-keyboard attached to the Model 20 
system. When such a request is made, rou- 
tines of the Monitor cause the current con- 
tents of main storage to be rolled out, the 
inquiry program to be loaded and executed 
and, on execution of that program, the ori- 
ginal contents to bs rolled in again. 
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Installation: A. particular computing sys- 
tem in the context of the overall function 
it serves and the individuals who :tianage 
it, operate it, apply it to probleTis, ser- 
vice it, and use the results it produces. 



Int. e2er_DiQ[i t : A digit to the left of the 
decimal point. 

Inter-Program Coirmunication: The exchange 
of data between two or more programs . 

Interru.nt : lv,t.,) To stop a process in 
such a way that it can be resumed. 

Intra-Program Communication; The exchange 
of data between two or more phases of a 
multi-phase program. Facilitated by the 
comraunication region. 

I/O: Input or output or both. 

I/0_A.rea: An area (portion) of main 
storage into ivhich data is read or from 
which data is written. 

Iil9_9Y§£i3.2 • ^ system feature that permits 
an input/output operation to be performed 
simultaneously with other I/O operations or 
with processing or both. 

I/O Time; the time interval between the 
instant at which data is called for from an 
external storage device and the instant 
delivery is completed (read time) ; the time 
interval between the instant at which data 
is requested to be stored in an external 
storage device and the instant at which 
storage is completed (write time) . 

lOSC: See Input/Output Control System. 

IPL: See Initial Program Loader. 

Job; An externally specified unit of work: 
for the computing system from the stand- 
point of installation accounting and 
operating system control. 

i2^_^2Iit£°l_E£23E5:2!' ^ system control pro- 
gram. Resides in main storage between jobs 
and provides for automatic job-to- job tran- 
sition. Processes Job Control statements 
in the input stream. 

!Z2^_S2Elt.r ol _S t a t ement : Any one of the con- 
trol statements (in the input stream) that 
identify a job or define its requirements 
and options. 



Ke^: One or mora characters within an item 
of data used to identify that data or to 
control its use. 



K_B Yt es : 
1024 bytes, 
bytes. 



See Input Jou titream. 



M utiiernuni; 
instruction. 



xn a Keywora macro 



Kb^^wotcA !4acro Instruction: A nacrD 
instruction whose operands must each con- 
sist of a mnemonic (keyword), an equal 
sign, and a specification. The operands 
need not be in a predetermined order. 



T -nr^rm::': 



iv^ua v^e i.£3if 3i3^2i 



rt {jiuyraui ui 



For example; 



nK = n X 1024 



tine that accepts statements in one lan- 
guage and produces equivalent statements in 
another language such as an assembler or a 
compiler. 

LDSYS: See Load Systeii Progran. 

Library; A collection of objects (e.g., 
files, volumes, card decks) associated with 
a particular use, and the location of .A^hich 
is identified in a directory of so:ne type. 

Librari^_Allo cat ion_0r3an iz at iori_Pr ogr a m ; A 
system service program. Used to redefine 
the limits of one or a combination of the 
following: core-image library, core-image 
directory, macro library, macro directory, 
and relocatable area. 

Ifi^£S£Z_^§D^3§2!2St_?£23£SIi ■ System service 
programs such as Core-Image Maintenance, 
Macro Maintenance, Directory Service, and 
Library Allocation Organization programs. 

lii^?£§.£Y„^2£!S_^^§.^' ^^- 9 3rea on the system 
disk pack used by tne CMAINI program for 
updating the Monitor or the IPL. In 
assemble-and-go or compile-and-go runs, the 
CMAINT program uses this area for the stor- 
ing of tape label information. 

Linkage; Machine instructions that connect 
separately assembled control sections. 

til3lS§36_E dit or : A system service program. 
Relocates programs or phases and links 
separately assembled programs or phases. 

LinlSzEdi ting : The function of combining a 
program control section with one or tiore 
other, separately assembled prograiTi control 
sections into one executable object 
program. 

Load: 

1. To read a program or a program ohase 
into main storage. 

2. To initially i^rite a data file onto 
disk. 

L2§.i:_SY§.t^[D_2i§.!i_£.£22.£§.[D- ^ systeii service 
program, that creates a tape- or disk- 
resident system from card input. 



Lo2ical_Unit._Block : An entr/ in the Logic- 
al Unit Table. 

i!23ical_Un it _Table : Part of the (Basic) 
Monitor. It has logical unit blocks, each 
of which refers to one specific symbolic 
I/O address and contains the address of a 
physical unit block. These symbolic 
addresses are related to physical I/O 
device addresses by means of ASSGN control 
statements. 

Loop; A. sequence of instructions that is 
executed repeatedly a specified number of 
times' "or until a condition is brought about 
that ends this repeated execution. 

Low- Order Digit; The rightmost digit of a 
decimal namber. 

LUB Table; See Logical Qnit Table. 

Machine_In3 tract ion ; An Assembler- language 
statement, or its functional equivalent in 
machine language, that instructs the com- 
puting system to perform one specific 
operation, such as add, subtract, compare, 
etc. 

Il^^^r o_Def inition : A set of statements in 
the macro library used by the.DPS/TPS 
Assembler program to expand a macro 
instruction specified in the source program 
into a series of machine instructions. 

^§2£2_5i£§£t2£Y * ^^ area of the macro 
library section of a tape-resident system, 
a table on the system disk pack of a disk- 
resident system. Is used with programs 
written in the Assembler language. 
The TPS version has four priority sections, 
each of which contains the identifiers for 
the macro definitions contained in the 
corresponding section of the macro library. 
The DPS version lists the names, begin 
addresses, and lengths of macro definitions 
contained in the macro library. Is used 
with programs written in the Assembler 
language. 

The Macro directory can be listed on a 
printer by means of the Directory Service 
program. 

^§2£2_ill§tr uc tion ; A statement used in a 
source program and replaced by a specific 
sequence of machine instructions in the 
associated object program. 

Macro Library (DPS) ; A disk area contain- 
ing the macro definitions for the macro 
instructions issued in user-written pro- 
grams. Contains source statements needed 
to generate frequently used routines. 

[!53:2£2_^i^rary_J[TPS)_; An area of the macro 
library section of the system tape. Has 
four priority sections, each of which con- 



tains the macro definitions for the macro 
instructions in user programs. Contains 
source statements needed to generate fre- 
quently used routines. 



Macro Maintenance Prog ra m: A system ser- 
vice program. Updates the macro library 
and directory. Is used to add and/or 
delete macro definitions. 



^§.2^2_^§.[I!2 • ^^ entry in the macro direc- 
tory that identifies and points to the 
corresponding macro definition in the macro 
library. 



Ma erg Ser y ic e Program ; A system service 
program that permits the printing, panch- 
ing, and/or writing of one or more nacro 
definitions from the macro library. 

Ma in_S to r a^e ; All addressable internal 
storage of the CPU (central processing 
unit). It holds the program (s) under whose 
control internal manipulation of data is 
performed. 

MMAINT: See Macro Maintenance Program. 

Mnemonic: A contraction or abbreviation 
whose characters are suggestive of the full 
expression. 

!52^§i_§;t§t§2!®Ilt : Any one of the statements 
in a macro definition that may be selected 
and/or altered (usually according to the 
operands specified in the macro instruc- 
tion) and become part of the code generated 
into the source program. 

Monitor: The main control program in DPS. 
Resident in main storage throughout a sys- 
tem run. Loads programs into main storage 
and causes their execution. 

Monit or_I/ 0_Ar ea : An area of nain storage 
within the Monitor used as a buffer by 
various Monitor routines when they read 
data into main storage or transfer data to 
an output device. 



MSERV: 



See Macro Service Program. 



Name: A set of one or more characters that 
identifies a statement, file, module, etc., 
and that is usually associated *r±th the 
location of that ivhich it identifies. 

Nesting; The occurrence of a macro 
instruction in a macro definition. 

2^i§2.!t_P rogr a m : The output of a single 
execution of an assembler or conoiler. 

2^^l5Z2S_^il§2.!i • Ss- Parity Check. 
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Oger and : 

1. A value or a unit of data that is 
operated on. 

2. The information needed to define and/or 
locate 1. 

Operation : 

1. A program step undertaken by a coa:iputer 
in execution of a machine instruction 
such as add, iTiViltiplyj comparej, etc. 

2. The execution of a series of instruc- 
tions for the purpose of having one 
specific function performed, e.g., the 
transfer of data between main storage 
and an I/O device. 

Operation Code; A mnemonic that represents 
an operation. 

Operational Expression; An expression con- 
taining operators. 

Operator ; 

1. A person who operates a machine. 

2. A symbol specifying an operation to be 
performed (see Arithmetic Operator and 
Comparison Operator) . 

Option; A specification in a program or a 
control statement that may be used by the 
programmer to influence the execution of 
the program or any of its statements. 

Output: The transfer of data from main 
storage to an external storage device. 

Overflow; 

1. That portion of the result which 
exceeds the capacity of the particular 
unit of stor'age 

2. Page end on a printer. 

Overlap; (v. t.) To do something at the 
same time something else is being done; for 
example, to perform an I/O operation while 
instructions of a program are being 
executed by the CPU. 

Overlay; To place a phase or subphase into 
main storage locations occupied by another 
phase or subphase that has already been 
processed. 

Pack; ,(v.t.) A storage technique where by 
two digits or one digit and sign are stored 
per byte- 

Packed Decimal; A data format in which two 
digits or one digit and sign are stored per 
byte. 

E§:£§0!§£.§£ • ^ variable that is given a con- 
stant value for a specific purpose or 
process. 

ParitY_Bit: A binary digit appended to an 
array of bits to make the sum of all the 
bits always odd or always even. 



E3.£i£Z_£ksc k ; A check that tests whether 
the number of ones (or zeros) in an array 
of binary digits is odd or even. 



Phase: A program or a portion of a program 
executed as one main-storage load if it is 
not devided up into subphases. Loading a 
'^has e ^hich is stored in the CDre^iTisge 
library, is initiated by a set of Job Con- 
trol statements, a FETCH or a LOAD in a 
preceding phase. May be output of ^^sse-nbl- 
er, RPG, PL/I, or Linkage Editor program. 

Ph^3ical_Device_ Address; A code uded by 
the CPU to select an I/O device. 

Physical_and_Logical Unit Tables Service 
Program: A system service program. This 
program (PSERV) is used to display and/or 
change the permanent device assignments 
and/or to change the configuration byte of 
the (Basic) Monitor on the systeti disk 
pack, 

PhZ§.i2§i_I02§ • ^ set of routines contained 
in the Monitor program. These routines 
control the transfer of data from the CPU 
to attached tape and/or disk drives and to 
the printer-keyboard, if present. The rou- 
tines also control all data transfer from 
the aforementioned I/O devices to the CPU. 



Ph^si c al _Uni t _Bl oc k : 
ical Unit Table. 



An entry in the Phys- 



Ph^3ical_Unit_rable: A table CDntained in 
the (Basic) Monitor. It has a number of 
physical unit blocks, each of which con- 
tains an actual device address. Pointers 
to these blocks are inserted into the log- 
ical unit table by means of AS33N control 
statements. 

5oint _A1 ignment : Alignment of arithmetic 
data in a variable depending on the loca- 
tion of the assumed or actual decimal 
point. 

Position Macro Instruction; A xiacro 
instruction whose operands consist of only 
the values specified by the programner. 
They must be specified in a predetermined 
order. 

Prefix Operator: An operator that pre- 
cedes, and is associated with, a single 
operand. The prefix operators are + and -. 

Pr ior i t y^_Lev el ; Classifies macro defini- 
tions by frequency usage in TPS. FDur 
levels are used in the macro library sec- 
tion of the tape resident system. 

P£i2Eity_Section; An area of the TPS macro 
directory or library. Each priority sec- 
tion is assigned to a specific oriority 
level. 



Problem Data : Arithmetic or logical 
(character) data that is processed under 
control of the problem program in main 
storage. 



Problem Progr am; Any program that is not 
part of the programming system or of the 
card programming support. 



Processing Program ; Any program that is 
not a control program- 



Program; A series of machine instructions 
that, when executed, cause the necessary 
processing to achieve the desired 
result (s) . 

Program Libra ry; A collective term used to 
refer to core-image directory and library. 

Program Library Section; The section of 
the syitem^tape that contains the program 
library. 

Program S ection ; See Control Section. 

Prototyp e Sta tement; The first instruction 
(following the macro header) in a macro 
defiHiition. It defines the format of the 
macro instruction and contains various sym- 
bolic parameters for which values are sub- 
stituted when the macro routine is used by 
a specific program- 

PSERV; See Physical and Logical Unit 
Tables Service Program. 

PUB; See Physical Onit Block. 

Read; To acquire data from an external 
storage device. 

Re ad/Compute, Write/Com put e Over la p Fea- 
ture; A feature of the IBM Systero/360 
Model 20, Submodel 5, that permits data 
transfer from or to magnetic-tape and disk 
I/O device to be overlapped with 
processing. 

Read Time; See I/O Time. 

Receiving Fie ld; Any field to which a 
value may be moved or assigned- 

Relative Address ; The number that speci- 
fies the difference between the absolute 
(effective) address and the base address 
(see Displacement). 

Relation al Op erators; The following opera- 
tors used in the macro language of the DPS/ 
TPS Assembler; EQ (equal to) GE (greater 
than or equal to) GT (greater than) LE 
(less than or equal to) LT (less than) NE 
(not equal). 



Relocatable Address ; An address that can 
be modified by adding a relocation factor, 
i.e., a base address value. 



Reloca table A rea: An area on the system 
disk pack used to temporarily hold an 
object program (or phase) thus permitting a 
program or program phase to be assembled 
and executed in one job. 



Relocation ; The modification of address 
constants required to compensate for a 
change or origin of a phase or subphase- 

Report Program Generator; A program which 
generates report- writing programs in accor- 
dance with specifications describing the 
characteristics of the files involved, the 
processing to be performed., and the desired 
output. 

Resta rt; To re-establish the status of a 
job using the information recorded at a 
checkpoint. 

RPG; See Report Program Generator. 

RWC Feature ; See Read/Compute, Write/ 
Compute Overlap Feature. 

Second-L evel Macro Definitio n; A macro 
definition that is called by an inner 
(second-level or nesting) macro 
instruction. 

Sense Byte (s) ; One or more bytes in main 
storage. The individual bits of a sense 
byte (or bytes) are used to indicate the 
status of I/O devices. 

Servi ce Program; Any of the system pro- 
grams that assist in the use of a computing 
system and in the successful execution of 
problem programs, without contributing 
directly to the control of the system or 
production of results. 

Significant Digit; A digit that contri- 
butes to the accuracy or precision of a 
numeral. The number of significant digits 
is counted beginning with the digit contri- 
buting the most value, called the most sig- 
nificant digit, and ending with the one 
contributing the least value, called the 
least significant digit. 

Simple Statement; See Statement. 

Source_Program; A series of statements in 
the symbolic language of an assembler or 
compiler, which constitutes the entire 
input to a single execution of the assem- 
bler or compiler. 

Source Statement; A statement written in a 
source language (e.g. Assembler language). 
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Sort/Merge ; h descriptive term meaning 
"sort or merge". This term is frequently 
used in Gonnection with a generalized pro~ 
gram from which types of sort or merge pro- 
grams may be defined. 



Special_Character: Any character that is 
neither alphabetic nor numeric. 



Statement: A meaningful expression or 
(-TorjgT^-a i_T_2ed instruction in a source 
language. 

Storage Alloca tio n; The assignment of 
blocks of storage to blocks of data. 

Stream; 

1, The flow of data from an external 

storacre medium to m.ain storage; the 

flow of data from, m.ain storage to an 

external storage medium. 

See also Input Job Stream. 



2. 

Subf ield 



The subdivision of a field. 



Subphase; A portion of a program executed 
as one main-storage load. Loading a sub- 
phase from the core-image library, in which 
it is stored, is initiated by appropriate 
instructions either within the phase of 
which the subphase is a part or within the 
preceding subphase- 

SYmbol ic^Addres s : An address represented 
by one or more symbols convenient to the 
programmer. 

S Ymbol icpevice Address; A symbol used ia 
IBM-supplied and user-written programs to 
refer to an I/O device (e.g., SYSRES, sys- 
IPT, SYS005). This address is related to 
an actual address by means of the logical 
unit table. 

SZ3IPT: See System Input Device. 

SSrSLOG; See System Output Printer. 

SYSLST: See System Output Printer. 

SYSOPT; See System Output Device. 

SYSRDR: See System Reader. 

SYSRES; See System Residence Device. 

System Control Pro gr am: A collective term 
used to refer to the Monitor, the Job Con- 
trol program, and the Initial Program 
Loader . 

System Directory ; A table on the system 
disk pack listing the addresses and sizes 
of the core-image library and directory, 
the macro library and directory, and the 
relocatable area . 



System. Disk Pack: The disk pack which con- 
tains the user's disk- resident system. 



System Input Device; An I/O device speci- 
fied as a source of an input job stream, 
excluding Job Control statements. 

§Z§£§IIl_2ytDut_De vice ; An I/O device used 
as output device for system programs or 
problem programs or both (symbolic device 
address is SYSOPT) . 

S^stem^Out gut ^Printer : A printer used to 
list the output of system programs (symbol- 
ic device address is SYSLST) or to log con- 
trol statements (symbolic device address is 
SYSL03) or both (same printer is assigned 
to both symbolic device addresses) . 






stem Reader 



A ^ T /O 









Control statements. 



System _Resident Device; For DPS the disk 
drive that contains the system disk pack if 
a disk-resident system is used; the disk 
drive on whose pack the Job Control program 
writes label information if a card-resident 
system is used. For TPS the tape drive 
that contains the magnetic-tape volume with 
the system programs. 

S yst em Service Pro gra ms; A collective term 
used to refer to the Library Management 
programs, the PSERV program, the Linkage 
Editor, and the Load System program. 



System Tape ; 
which the uss 
located. 



The reel of magnetic tape on 
:*s tape-resident system is 



TaEe_Err or_Recover y _Rout in e ; A system rou- 
tine that controls the execution of error 
recovery procedures in the case of magnetic 
tape I/O errors. 

Tape_Error_Statistics_Routine; A system 
routine that analyzes magnetic-tape read/ 
write errors and noise records that may 
occur during the execution of a program. 
In addition, the routine records the number 
of erase gap commands that are issued dur- 
ing the execution of the program. 

Tape-Resident System; (Also referred to as 
"user's tape-resident system.") Contains 
the Basic Monitor program, the Job Control 
program, and may contain any IB^-supplied 
and/or user-written programs and/or macro 
definitions. Consists of three sections ; 
Monitor section, program library section, 
and macro library section. Is created and 
updated by means of maintenance programs. 

TER; See Tape Error Recovery Routine, 

TES; See Tape Error Statistics Routine. 
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Third-Level Macro Defi nition; A macro 
definition that is called by an inner macro 
instruction of the third level. 

Throughput; A measure of system efficien- 
cy; the''rate at which work can be handled 
by a computing system. 

Transient Area ; An area in main storage 
into which the Monitor loads transient rou- 
tines for execution. 

Truncation; The process of cutting short a 
data, entity either on the right or on the 
left. 

O npack ; (v.t.) To convert aumeric data 
stored in the packed format to unpacked 
decimal format. 

User Routine; A routine written and supp- 
lied^by the user and incorporated into a 
system program as a modification* Each 
user-written routine is accessed through a 
program exit. 

User's T ape-Re sident System; See Tape- 
Resident System. 

Utility Programs; Programs that perform 
frequently recurring jobs such as copying 
files from one data carrier to another. 



initializing a disk pack or a reel Df mag- 
netic tape, etc. 



Volum e; That portion of a single unit of 
storage media that is accessible to a 
single read/write mechanism. For example, 
a reel of magnetic tape for a 2415 magnetic 
tape drive, or one 1316 Disk Pack for a 
2311 Disk Storage Drive, 



Volume Label. A record which uniquely 
identifies a volume of magnetic tape or a 
disk pack by its volume serial number and 
other information. 



Volume Table of Contents (VTOC) ; A table 
stored on disk pack. The table contains 
the labels of all files contained on the 
same disk pack. 



VTOC; See Volume Table of Contents. 

Write; To record data on either disk or on 
magnetic tape. 

Write Time ; See 1/3 time. 

Zoned Decimal; See Unpacked Decimal. 
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Appendix A. Machine— Instruction Mnemonic Codes 



The following list is an alphabetical listing of the mnemonic operation codes of all the 
machine instructions that can be represented in the Model 20 DPS/TPS Assembler Language. 
The column headings in the list and the itiformation each column provides are as follows: 

Mnecnonic Codgj^ This column gives ttie mnemonic operation code for the machine 

instruction. 
In st ru ct ion: This colutnn contains the riarue of the instruction associated with the 

mnemonic. 
Operation Cod e; This column contains the hexadecimal equivalent of the actual macdine 

operation code. 
Basic Machine Format: This column gives the basic machine format of the instruction: 

RR, RX,SI or SS. 
Operand Field Format; This column shows the symbolic format of the operand field for the 

particular mnemonic. 



Opera- Basic 

Mnemonic tion Machine 

AH Add Ha If word 4 A RX 

AP Add Decimal FA SS 

AR Add lA RR 

BAS Branch and Store HD RX 

BASR Branch and Store Register OD RR 

EC Branch on Condition 47 RX 

BCR Branch on Condition 07 RR 

CH Compare Halfword 49 RX 

CIO Control I/O 9B SI 

CLC Compare Logical D5 SS 

CLI Compare Logical Immediate 95 SI 

CP Compare Decimal F9 SS 

DP Divide Decimal FO SS 

ED Edit DE SS 

tiPR Halt and Proceed 99 SI 

LH Load Ha If word 48 RX 

MP Multiply Decimal FC SS 

M7C Move Characters D2 SS 

MVI Move Immediate 92 SI 

H7N Move Niimerics Dl SS 

MVO Move with Offset Fl SS 

MVZ Move Zones D3 SS 

NI AMD Logical Immediate 94 SI 

01 OR Logical Immediate 96 SI 

PACK Pack F2 SS 

SH Subtract Halfword 4B RX 

SP Subtract Decimal FB SS 

SPSW Set Program Status Word 81 SI 

SR Subtract IB RR 

STH Store Halfword 40 RX 

TIOB Test I/D and Branch 9A SI 

TM Test Under Mask 91 SI 

TR Translate DC SS 

UNPK Unpack F3 SS 

XIO Execute I/O DO SS 

ZAP Zero and Add Decip>al F8 SS 



Operand 

Field 

Format 

Ri»D2(0,B2) 

Dl (Lx» Bi ) , D2 (Ij2 I B2 ) 

Rif 02(0,62) 

Rlir R2 

Mi,D2C0,B2) 

Mi,R2 

Ri„D2C0,B2) 

Dj.(Bi),[JF 

Dj. (L,Bi) ,D2(B2) 

Di(Bi),l2 

Di(La.,Bi) ,D2 (La.Bz) 

Dj. ( Li, Bi ) , D2 (I»2r Ba ) 

^ 'L,Bj.), 02(62) 

Bi)*l2 

,Da(0,B2) 
^± 1 61 ) , D2 (L2 , B2 ) 

L,Bt),D2(B2) 

Bl),l2 

L,Bi) ,02(63, 

^1* 6j. ) , D2 ( L2 , B2 ) 

L,6i) ,02(62) 

6i),l2 

Ba.) i,l2 

Lj_, Bj_ ) , D2 ( L2 , 62 ) 

02(0,63) 

La. , 61) , D2 (L2,, 62) 

63.) 

Fl, 02(0,62) 

Di(Bi)„UF 

Da.(6i),l2 

Dl (L,6i) ,03(82) 

Dl ( JLii, Bi ),D2(L2r,B2) 

Di(UF,6i), 02(82) 

r\ f T VI ^ '^ "■ n^ 

wi MJi , £31 / , U2 MJ2 , D2 •/ 



D_ 

Dl 

Ri 

Dl 
Di 
Dl 
Dl 
Dl 
Dl 

Dl 

Dl 

Dl 

Ri, 

Dl 

Dl 

Ri 
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Extended Mnemonic Instruction Codes 



■1 1 

Mft.CHINE INSTRaCTIONJ 



EXTENDED CODEJ OPERAND 



MEANING 



|. + „+ -— 1__ ^ 



B 


102(0,63) 


1 6ranch Jnconditional 








6C 


15,02 (0,83) 


BR 


IR2 


1 Branch Unconditional 


(RR 


Format) 




BCR 15, R2 


NOP 


IDaCO^Ba) 


j No Operation 








BC 


0,03(0,62) 


NOPR 


|Ra 


1 No Operation (RR Format) 






BCR 0,R2 






.1 . . ^_. . 






— 1— 








■"■" ~* X '"■"'""' ~" """""" " 


t 






T 








1 


|USED AFTER COMPARE INSTRUCTIONS 








BH 


iDaCCBa) 


1 6ranch on High 








6C 


2„D2(0,B2) 


BL 


1 Da (0,62) 


1 6ranch on Low 








6C 


4,D2(0„B2) 


BE 


1D2(0,B2) 


1 6ranch on Equal 








6C 


8,02(0,83) 


BNH 


102(0, B2) 


1 6ranch on Not High 








ec 


13. 02(0*63) 


BNL 


102(0,62) 


1 6ranch on Not Low 








6C 


11,02(0,82) 


BNE 


|D2(0,,B2) 


j 6ranch on Not Equal 

_j ^ ■ 






— 1— 


6C 


7,02(0,63) 




"" ' -^-^^ — — ^ — -».^- 


t 






T 








1 


|U5ED AFTER ARITHMETIC INSTRUCTIONS 








BO 


102(0,62) 


1 eranch on Overflow 








BC 


1,03(0,83) 


BP 


102(0,62) 


j 6ranch on Plus 








BC 


2,03(0,63) 


BM 


102(0,62) 


1 6ranch on Minus 








BC 


4»D2(0,82) 


BZ 


102(0,62) 
i 


1 eranch on Zero 
_4._« . . 






-4— 


BC 


8,,02(0,62) 




T 


t ~ 






1 




^ **"'." ^ — — .»•••- 




1 


|USED AFTER TEST UNDER MASK 


INSTRUCTION! 






BO 


103(0,62) 


1 eranch if ones 






1 


BC 


1»D2(0,82) 


BM 


102(0,63) 


1 eranch if Mixed 






1 


BC 


tt»O2(0,62) 


BZ 


102(0,62) 


1 eranch if Zeros 






1 


BC 


8,03(0,82) 



L X. J. . J. J 
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Appendix B. Machine-Instruction Format 



I I 



i I Basic Machine Format 



J. — ^ ^ — ^ — y 

I J 8 \U \H 

uperationj j 
Code I.RiJRa 



I ?^ssemblsr Operanc 
I Field Format 



I Instructioas 
4 _ 






RRJ" 



+— +— + 

I 8 IM'^ I 
I Operation] | 
I Code IMiIRa 
I I I 

+— +— + 



Ri'» Ra 



AR,BASR„SR 



Ml, Ma 

(See notes 1 and 4) 



BCR 



i i 



T — r 
4 il2i 

i 



RXJ- 



Code 



1 H |H 



Ri|X: 



4 |4 



B. 



D- 



RitDa vUjtSa; 

Ri w 3 a 

(See notes 1,2,, 3, and 7) 



SrH,LH,CH,AH,SH, BAS 



Operation 
Code 



Mi|X: 



12 

Da 



Ml, 02(0,02) 

Mi„S2 

(See notes 2,3„4„and 7) 



BC 



K— + 



+~4-4 



Operation 
Code 



4 



12 
Di 



SIf 



4--4— + 



Di(Bi)„l2 

Si(, 1 2 

(See notes 2,3»6,and 7) 



CLI,, MVI, NX, 01 , TM, HPR 



"- =— H 



Operation 
Code 



4 



12 

Di 

4— f 



Di{Bi) 

Si 

(See notes 2, 3, 7, and 8) 



SPSW 



Operation 
Code 



UF 



4 
Bi 



12 
Di 



Di(Bi),UF 

Si„JF 

(See notes 2, 3, and 7-9) 



TIOB 

CIO (Di.(Bi) detailed 
specification) 



^™^+ 1__^__|__|__|__^__|_ . 



Operation 
Code 



4 |4 

I 

LilLa 



12 
Di 



SS 



4~4~4~4— 4 



12 

Da 



Di(Li,Bi),D2(L2,B2) 

Si(Li),S2(L2) 

(See notes 2, 3, 5, and 7) 



PACK, UNPK,MVO,?lP, 
CP,DP,MP,SP„ZAP 



H 



Operation 
Code 



12 

Da 



Di(L,Bi) ,02(62) 

Si(L),,S2 

(See notes 2, 3, 5, and 7) 



CLC,MVC,M7N, 
MVZ,TR,ED, 



Operation 
Code 



8 
UP 



4—4— 4— 4—4 



L J.. 



1214 112 

Ba 
.i i X X X. 



Di(UF,Bi), 02(62) 

Si([JF),S2 

(See notes 2, 3, 7, and 9) 



XIO (03(62) detailed 
specification) 



1 9a 



No tes tg__Agpendix B : 

1.. Ri and Ra are absolute expressions that specify general registers. The general 
register numbers are 8 through 15- 

2. Dj. and Da are absolute expressions that specify displacements. h value of - 4095 
may be specified. 

3- Bx and Ba are absolute expressions that specify base registers. Register numbers 
range between and 15. 

U, Mi is an absolute expression representing a condition code. 

5. L„ Li, and La are absolute expressions that specify field lengths, hn L expression 
can specify a value of 1 - 256. Lj. and La expressions can specify a value of 1 - 
16. In all cases, the assembled value will be one less than the specified value. 

6. I and la are absolute expressions that provide immediate data. The value of the 
expression may be - 255, 

7. Sx and Sa are absolute or relocatable expressions that specify an address. 

8. SI instruction fields that are crossed out in the machine formats are not examined 
during instruction execution. The fields are not written in the symbolic operand, 
but are assembled as binary zeros. 

9. UF is an absolute expression representing an input/output unit address and a 
function. 
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Appendix C. Assembler— Instructions 



Mnemonic Name Field 



Operand Field 



DC 



An optional symbol 



tslank; or a comment preceded by a couiia 
One operand 



DCCW 


An optional symbol 


DROP 


Blank 


DS 


An optional symbol 


DSECT 


A reqxjired symbol 


EJECT 


Blank 


END 


Blank 


ENTRY 


Blank 


EQO 


A required symbol 


EXTRM 


Blank 


.ICTL 


Blank 



ISEQ 



Blank 



Four operands* separated by commas 

One to four absolute 
expressions^ separated by commas 

One operand 

Blank or a comment preceded by a coTina 

Blank or a ccxnment preceded by a comtia 

A relocatable expression or blank 

One relocatable symbol 

An absolute or relocatable expression 

One relocatable symbol 

25 (or 25,71,38 when using 
macro- instructions) 

A blank, or ti/^o decimal values 
separated by a comma 



LTORG 


An optional symbol 


ORG 


Blank 


PRINT 


Blank 


REPRO 


Blank 


SPACE 


Blank 


START 


An optional symbol 


TITLE 


0-4 characters 



USING 



Blank 



Blank or a comment preceded by a comma, 

A relocatable expression or blank 

One to three operands 

Blank or a comment preceded by a coTiTia 

A decimal term or blank 

A self-defining term or blank 

Up to 62 characters, 
enclosed in apostrophes 

A relocatable expression 
followed by one to four absolute 
expressions, separated by commas 



XFR 



Blank 



A relocatable symbol 



Appendix D. Summary of Constants 



r T- 



TYPE 


IMPLIED 

LENGTH** 

(BYTES) 


ALIGN- 
MENT 


LENGTH 

MODIFIER 

RANGE 


SPECIFIED 
by 


TRUNCATION/ 
PADDING SIDE 














1 1 
._,_ + _ ^ 

1 1 


C 


as needed 


byte 


1 


f 
to 32 


characters 


1 

right 


X 


as needed 


byte 


1 


to 32 


hexadecimal digits 


left 


B 


as needed 


byte 


1 


to 8 


binary digits 


left 


H 


2 


halfword* 


1 


to 2 


decimal digits 


left 


P 


as needed 


byte 


1 


to 16 


decimal digits 


left 


Z 


as needed 


b/te 


1 


to 16 


decimal digits 


left 


Y 


2 


halfword* 


1 


to 2 


aay expression 


left 



l. + ^ ^ ^ — _ + ^ 

*anless an explicit length is specified. 
**The implied length must not exceed the maximum modifier length. 

!L .. J 
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Appendix E. Summary of Macro Language 



Expressions in Macro Language 



Type 



Arithmetic 



Character 



Logical 



j Relational | 



I Can 

■ contain 



[Positive decimal 
j self -defining terms 



JSETA and SETB sym- 
Ibols 

I 

|SETC symbols' if the 
lvalue assigned is a 
{positive decimax 
' self "def inmg ternri 



I 

I Symbolic parameters 
I if the correspond- 
jing operand is a 
I positive decimal 
j self-defining term 

! 

|£SYSLIsr(n) if the 
I corresponding oper- 
I and is a positive 
I decimal self-defin- 
I ing term 

I 
|SS5fSfTDX 



Up to 8 characters 
enclosed by 
apostrophes 

Any SET symbol, 
system variable 
symbol,, or symbolic 
parameter enclosed 
by apostrophes 



Any concatenation 
enclosed by 
apostrophes 



0, 1, or SETB symbols 



Maximum of two SETB 
symbols 

and 1 can be used 
only in single-term 
expressions (which 
must not be preceded 
by the operator NOT) 



Two arithmetic 
expressions 

Two character 
expressions 



Operators | + - * / 
I 



Concatenating by 
using a period (.) 
and/or substringing 



AND, OR and NOT 



E2,NE:,Lr, 
GT,LE and GE 



Range of |0 to 99999 
values 



Zero to eight char- 
acters 



(FALSE) or 1 (TRUE) 



(FALSE) or 

1 (TRaE) 



Can be j SETA operands 
used in j Relational express- 
j ions 



SETC operands 
Relational express- 
ions 



SETB operands 
AIF operands 
AIFB operands 



SETB operands 
AIF operands 
AIFB operands 
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Name and Operand Field of Instructions 



j Instruction 
1" 



Name Field 



Operand Field 



A.GO 



A sequence symbol or 
blank 



h sequence symbol defined in a following 
statement 



AGOB 



A sequence symbol or 
blank 



A sequence symbol defined in a preceding 
statement 



ft-IF 



A sequence symbol or 
blank 



A logical or relational expression enclosed 
by parentheses, immediately followed hy 
a sequence symbol defined in a following 
statement 



AIFB 



A sequence symbol or 
blank 



A logical or relational expression enclosed 
by parentheses, immediately followed by 
a sequence symbol defined in a preceding 
statement 



ANOP 



A sequence symbol 



Blank 



MACRO 



MEND 



Blank 



For DPS: the version, code (2 cols,) and the 
modification code (2 cols.), or blank; for 
TPS: blank. 



+- 



A sequence symbol or 
blank 



Blank 



MEXIT 



A sequence symbol or 
blank 



Blank 



MNOTE 



A sequence symbol or 
blank 



A combination of characters enclosed by 
apostrophes 



SETA 



£AGn or gALn,, where n 
is 0-15 



An arithmetic expression witti a maximum 
of three terms 



SETB 



SBGn where n is 0-255 
for both DPS and TPS. 
SBLn where n is 0-255 
for DPS and 0-127 for 
TPS 



A logical expression or a relational ex- 
pression enclosed by parentheses 



SETC 



gCGn, where n is 0-15 



Jp to eight characters enclosed by a pair 
of apostrophes — substrings and 
concatenation permitted. 



Model Statement 
(any Assembler 
language mnemonic 
operation code,, 
except END, I CTRL, 
ISEQ, LTORG,, 
PRINT, and START) 



A symbol, a variable 
symbol, a sequence 
symbol,, a symbolic 
parameter, or a con- 
catenation rep- 
resenting a symbol 



Any valid combination of characters (including 
variable symbols) 



Prototype State- 
ment 



A symbolic parameter 
or blank 



CJp to 49 symbolic parameters separated by 
commas 



I Macro Instruction [Valid symbol or blank |ap to 49 operands, separated by commas 
L J. X 



♦ [iJhen the IOCS is used,, the following symbols must not be used: 
&BGO - gB319, gBG21, &BG27, 6BG28, gBG69, and SBGSO - &BG88. 
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Symbolic Parameters and Variable Symbols in Expressions 



Symbol 



Defined By | 



Initialized or 
Set to 



Value Changed By 



Can be Used la 



Symbolic 
parameter 



Prototype 
statement 



SETA 



Predefined 



(at assembly 
start for global, 
at macro call 
for local) 



Corresponding 
macro instruction 
one rand 



Constant 

throughout 

definition 



Arithmetic expressions 
if operand is an an- 
sif^ned decimal self~ 
def j-uing terna 

Character exoressions 



Model statements 






SETA ins t ru ct ion 



Arithmetic expressions 
Character expressions 

Model statements 



biirti 



preaerinea 



u iat assemDiy 
start for global, 
at macro call 
for local) 



SETB instruction 



Arithmetic expressions 
Character expressions 

Logical expressions 

Model statements 



4- 



SETC 



Predefined 



Null character 
value (at assem- 
bly start) 



SETC instruction 



Arithmetic expressions 
if operand is an un- 
signed decimal self- 
defining term 

Character expressions 

Model statements 



6SYSNIDX 



The Assembler 



Macro instruction 
index 



Constant 
throughout defi- 
nition; unique 
for each macro 
instruction 



Arithmetic expressions 
Character expressions 
Model statements 



gSYSECT 



The Assembler 



Control section 
in which macro 
instruction 
appears 



Constant 
throughout defi- 
nition; set by 
CSECT, DSECT, 
and START 



Character expressions 
Model statements 



&SySLIST(n) 
Where n is a 
SETAv symbol 
or a decimal 
self-defining 
value 



The Assembler 



Corresponding 
positional macro- 
instruction 
operand 



Constant 
throughout defi- 
nition for a 
given value of n 



Arithmetic expressions 
if operand is an un- 
signed decimal self- 
defining term 
Character expressions 

I Model statements 
-x : 



IBM— Supplied Macro Definitions 



r 

Listgf IBM-Supglied Macro Def initions_ (DPS) 



ASSGN ATENT 

CDIPL CLOSE CNTRL CNVRT COMRG CRDPR CREAD 

DCCB DCNT DCSCT DSENG DSKA DIFBG DTFBN DTFBT DTFBU DTFBV DTFBW DIFBX DTFB^ DTF2F 

DTFCG DTFDA DTFDC DTFDF DTFDO DTFDR DIFEN DTFIA DTFID DTFIN DTFIQ DTFIR DTFIS DTFIT 

DTFIV DTFLC DTFLD DTFM3 DTFMM DTFMT DTFMU DTFMV DTFMW DTFMX DIFMy DIFMl DTFM2 DIFNA 

DTFNB DTFNC DTFND DTFNE DTFNF DIFP DTFPA DTFPC DTFPD DTFPE DTFPK DTFPL DTFPM DTPPN 

DTFPO DTFPQ DTFPR DTFRG DTFSC DTFSD DTFSE DTFSF DTFSG DTFSH DTFSI DIFSJ DTFSK DTFSL 

DTFSN DTFSR DTFST DTFSU DTFSV DIFSiJ DTFSX DTFSy DTFSZ DTFTC DTFTL DPFTD DTF^R DTF^W 

ENDFL ENDMT EOJ EOM ESEIL EXIIB 

FEOV FETCH 

GET 

I$BGO I$B31 I$BG3 IB249 lEOOl IICMA INTRD lOOOl IPIQO IQIPT 

LBRET LOAD LOM LXITB 

MACRO MAINT MCIPL MDERP MEET MINQ MJOBl MJ0B2 MJ0B3 MJ0B4 MJ0B5 MJ0B6 MONTR iVIPPK 
MRIN MROUT MSCED MSCOO MSCIO MSCll MTRAM MVCOM 

NOINQ 

OPEN 

PREQ PRTOV POT 

READ RELSE RETRN RJBGN RJCHK RJCMP RJCON RJCRD RJCTR RJDRD RJDRH RJDWE RJE RJEMM 
RJEND RJECT RJERR RJEUT RJEXP RJHDR RJLER RJMS3 RJOUT RJPCH RJPRD RJPTR RJRE2 RJR2M 
RJRQP RJTRA RJTRC RJTRD RJTWC RJTWE RJWNQ RPGEQ SDRTB RAPQP TRATB 

SETFL SETL 

TRUNC 

WAIT WAITB WAITC WAITF WRITE 

List of IBM-Sgpplied Macro Definitioas (TP5) 

Prior itY_l 

CNTRL COMRG CRDPR DSENG EOJ EOM EXITB FEOV FETCH GET LBRET LOM LXITB M7C0M 

PRTOV PUT READ RELSE RJCMP RJEXP TRQNC WAITB WAITC WRITE 

Priority 2 

CLOSE DTFB3 DTFBT DTFBU DTFBV DTFBW DTFBX DTFBY DTFCF DTFCG DTFMM DTFMT DTFMD DTFMV 

DTFMW DTFMX DTFMY DTFNA DTFNB DTFNC DTFND DTFNE DTFNF DTFPA DTFPC DTFPD DTFPF DTFSR 

DTFST DTFSO DTFSV DTFSW DTFSX DTFSZ DTFSZ OPEN 

Priority 3 
DTFBN DTFSN 

Priorit^_4 
DTFEN 
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Appendix F. Assembler— Language Features 



Feature 



r ■ T T T 

j Model 201 Model 20|sapPA.K | BPS 
I Basic IDPS/TPS ! JBas; 



■T T T 1 

IBPS/BOS ID3S/T0S j OS/ 360 \ 
!?^sseT- 1 1 I 





Assem- 


Assem- 




1 Assem- 


bier 








bler 


bler 




|bler 










___ ^ 


L 


_J :_ 


_j 







\ 


-■>««• — —^«> — — — •—••'— — — « — — •■^ — ——>^- 


" ~ 


r 


1 


T 









No, of continuation 





i 


i 


1 


1 


1 


2 


cards/statement (excl. 
















of macro constructions) 
















Input character code 


EBCDIC 


[EBCDIC 


|BCD or 
[EBCDIC 


1 EBCDIC 


EBCDIC 


EBCDI2 


eb::dic 


ELEMENTS : 
















iMaxifiiuiti characters/ 


'4 


i 8 


i 6 


i ° 


8 


8 


8 


s^'itibol 
















Character self- 


1 char. 


1 char. 


1 X 


|1 char. 


X 


X 


X 


defining terms 


only 


|only 




1 only 








Binary self-defining 


-- 


8 bits 


h - 


1 ~~ 


X 


X 


X 


terms 




1 max. 












Length-attribute 


— 


X 


1 — 


1 "" 


X 


X 


X 


reference 


















-- 


see J2 


1 — 


I ~~ 


X 


X 


X 


Extended Mnemonics 


-- 


1 X 


1 X 


i ~" 


X 


X 


X 


Maximum location- 


2^**-! 


215-1 


|22'*-1 


1216-1 


22U-1 


22^-1 


22^-1 


counter value 
















Multiple control 


— 


max. of 


1 — 


I -" 


X 


X 


X 


sections per assembly 




8 












EXPRESSIONS: 
















Operators 


+ - 


1 +- + 


1 +-+/ 


1 +"* 


+ -♦/ 


+ -*/ 


+ -*/ 


Number of terms 


3 


3 


1 16 


1 3 


3 


8 


16 


Number of parentheses 


-- 


i 1 


1 ~~ 


1 ■" 


1 


3 


5 






level 






level 


levels 


levels 


Complex relocatability 


-- 


X 


1 ~~ 


1 ~~ 


X 


X 


X 


ASSEMBLER INSTRUCTIONS: 
















DC and DS 
















Expressions in 
















.modifiers 


-- 


1 — 


1 — 


I ~~ 


-- 


X 


X 


Multiple operands 


-- 


— 


1 ~" 


1 — 


~ 




X 


Multiple constants/ 


— 


1 — 


1 — 


1 "~ 


Except 


X 


X 


operand 










address 
cons. 






Bit length 


-- 


— 


1 — 


1 "~ 


— 




X 


specification 
















Scale modifier 


-- 


-- 


1 — 


1 ~~ 


X 


X 


X 


Exponent modifier 


— 


-- 


1 — 


1 — 


X 


X 


X 


DC types 


Only C, 


1 C, X , B, 


[Except 


1 Except 


X 


X 


X 




X, H, y 


H,P. Z, 
1 ^ 


iB,V 


IB,P,V 








DC duplication factor 


— 


1 X 


1 X 


1 Except 
1 ^ 


Except 
s 


X 


X 


DC duplication factor 


— 


1 — 


1 — 


I ~" 


Except 


X 


X 


of zero 










s 






DC length modifier 


Except 


see 
Appx.D 


! X 


1 Except 
|H,E, 

i n 


X 


'^ 


X 


-. J 


>.— •.«. — .. — ^.^' 





.1 . 


1 '-' 
_J. J 





L J 
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r 

(Feature 

L _ ___ 




-T 1 

1 Model 20 

[Basic 

1 Assem- 

Ibler 
_j 


r 1 

Model 20 
DPS/TPS 
Assem- 
bler 




r — 1 

SUPPAK 

. 


r 1 

BPS 

Basic 

As s em- 

bler 



1 1 

BPS/BOS 
Assem- 
bler 

J 


r 1 

DOS/TOS 




r 1 

OS/360 1 

J 


r 

1 DS maximum length 

1 modifier 

1 DS constant subfield 

1 permitted 

1 DS type 

i DS length modifier 
|COPY 


1 

1 256 

j only 

|only 
1 C 


256 

only 

H,C 

only 
C 

- 


^ 

256 

only 

F„D 
only 
c 


256 

only 

C,H, 
F„D 
only 
C 


256 
X 
X 

X 


65,535 
X 
X 

X 
X 


r — 1 
65,535 1 

X I 
X 1 

X 1 
X 1 


1 CSECT 




1 "■ 


8 max. 


— 


-- 


X 


X 


X 1 


1 DSECT 




1 — 


7 max. 


— 


-- 


X 


X 


X 1 


|ISEQ 




1 -- 


X 


— 


-- 


X 


X 


X 1 


1 LTORG 




1 '- 


X 


— 


— 


X 


X 


X 1 


(PRINT 




1 -- 


X 


— 


-- 


X 


X 


X 1 


1 TITLE 




1 ~* 


X 


X 


-- 


X 


X 


X 1 


|COM 




1 — 




— 


-- 


— 


X 


X 1 


|ICTL 






1 opnd. 
25 only 
or 3 
opnds. 
25,71,38 


1 opnd. 


1 opnd. 
1 or 25 
only 


X 


X 


X 1 


lasiNG 




1 2 opnds. 
list opnd 
1 reloc. 
|only 


5 opnds. 
1st opnd 
reloc. 
only 


2-17 
opnds . 
1st opnd 
reloc. 
only 


2 opnds. 

reloc. 
only 


6 opnds. 


X 


X 1 


(DROP 




1 1 opnd. 
jonly 


4 opnds. 
only 


X 


■1 opnd. 
only 


5 opnds. 


X 


X 1 


|CCW 




1 ■*■ ~* 


4 opnds. 
(DCCW) 


X 


opnd. 
2 reloc. 
only 


X 


X 


X 1 


|ORG 




INO 

(blank 
1 opnd. 


X 


No 

blank 

opnd. 


No 

blank 

opnd. 


X 


X 


X 1 


1 ENTRY 




|1 opnd. 
( only 


1 opnd. 
only 


1 opnd. 
only 


1 opnd. 
only 


1 opnd. 
only 


X 


X I 


1 EXTRN 




1 1 opnd. 
(only 


1 opnd. 
only 


1 opnd. 
only 


ma X . 14 
1 opnd. 
only 


1 opnd. 
only 


X 


X 1 


|CNOP 




1 ~" 




2 dec. 
digits 


2 dec. 
digits 


2 dec. 
digits 


X 


X 1 


1 PUNCH 




1 — 




— 


-- 




X 


X 1 


1 REPRO 




1 — 


X 


— 


— 


X 


X 


^ 1 
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p-._ J. 

1 Macro Instructions 1360/20 
1 jiocs 

1 j only 

i . J 


-T T 

1 1 

I ♦♦ } — 


i -- 


. 

1 V 

- X _ 


1 

i X 

_J 


i X 

. j- - 


r — 1 ■ — 


1 - 1 


1 


t 


t 

1 X 


r 

1 ^ 


{Attributes of macro= \ 
j instruction operands | 
1 inside macro | 
j definitions and symbols! 
iused in conditional- j 
(assembly instructions | 
i outside macro j 
1 definitions | 








! X 


! " 


{Subscripted SET symbols! 


1 — 1 




1 — 


1 X 


1 ^ 


1 Maximum number of | 
1 parameters ! 


1 ^^ 1 




1 Ii9 


1 200 


1 200 


! Conditional-assembly j 
{instructions outside { 
1 macro definitions | 


1 — — 1 




1 "• * 


1 X 


1 X 


1 Maximum number of SET | 
1 symbols ! 
j Global SETA 1 
1 Global SETB 1 
1 Global SETC 1 
! Local SETA 1 
1 Local SETB 1 
1 Local SETB j 
1 Local SETC 1 


1 16 1 
1 2561 1 

i 16 1 

1 16 i 
1 2562 1 
1 1283 1 
1 1 




i 16 

1 128 
1 16 
1 16 
1 128 

i 


1 :|< 

1 * 
1 '*' 

1 * 
1 * 

1 * 


1 * 

1 * 

1 * 

1 * 
1 * 

j * 



Legsnd : 



L -. L L JL J. i i J. I 



* The number of SET symbols permitted by the Operating System/35j and D0S/T03 
Assembler is variable, dependent upon available main storage. 

X Implemented as specified in IBM System/360 Assembler Language SRL. 

— Not implemented. 

** See the SRL publication IBM_Systejn/_360 Model 20, Disk Programming Syotem, Per- 
formance Estimates, Form GC:33-6003. 



1 For DPS and TPS 
^ For DPS only 
3 For ISPS only 



XJH 



Appendix G. Output Listings (Assembler and MMAINT) 



Assembler Program 



FIELD 



PRINT I MEMSIINC 

POSITIONS I 



External Symbol Dictionary (BSD) 



SYMBOL 

TYPE 

ID 

ADDR 

LENGTH 

LD ID 



01-08 
11-12 
15-16 
19-22 
26-29 
34-35 



External name. 

Symbol type. 

ESD entry number. 

Address of symbol before relocation. 

Length attribute of control section. 

ESD entry number of control section inhere name appears, 



Instructions 



LOCATN 
OBJECT CODE 

ADDl 

ADD 2 
STMNT 
SOURCE 
STATEMENT 



WRN 
SEQ 
ERR 
CAT 



I Location of assembled instruction (hexadecimal). 

I Assembled instruction (hexadecimal) . 

I Constant generated (hexadecimal). 

I Effective address of Ist operand (hexadecimal). 

I Effective address of 2nd operand (hexadecimal). 

I Statement number (decimal) . 

I Source statement (card image) . Column 36 contains 

I a plus sign if a source statement is generated. 

I Number of TXT card (decimal). 

1 ^Qt6,:. If NODECK was specified, the number is that of 

j a NOESD option, 
03-05 I Flag: Possible error in previous statement. 
08-10 I Flag: Sequence error in previous statement. 
13-15 I Flag: Error in previous statement. 
18-20 I Flag: Catastrophic error in previous statement. 
J ■ 



I 02-05 

1 07-20,, or 

I 07-22 

I 22-25 

I 27-30 

1 32-35 

I 37-116 

I 

I 118-120 

I 



H 



Relocation Dictionary (RLD) 



.^ ^ ^ 

I 03-04 j ESD ID number of control section containing the constant. 
I 10-11 I ESD ID number of control section containing the address in 
I 1 the constant. 

I 16-17 I Type of relocation, 

I 20-23 I Address of constant before relocation. 
.X J. 



POS.ID 

REL.ID 

FLGS 
ADDR 



Diagnostics 



STATEMENT NO. | 05-08 
ERROR MESSAGES! 20-79 
ACTION I 80-120 



j Listing sequence number of statement in error. 
I Explanation of error. 
I Action taken by Assembler. 
-J. 



Table of Defined Symbols 



SYMBOL 
LEN 
VALUE 
TYPE 



01-08 

65-72 

11-13 

75-77 

17-20 

81-84 

24 

88 



I Name assigned to source statement. 

I 

I Length attribute (decimal notation) . 



Value attribute (hexadecimal notation) 



I 
I 
I 

I Type attribute. 

I 

.X 
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SYMBOL 
LEN 
VALUE 
DEF 

CROSS- 
REFERENCE 



01-08 
10-13 
17-20 
23-26 
31-34 
37-ttO 
43-ti6 
49-52 
55-58 



ox- 
67- 
73- 
79- 
85- 
91- 
97- 
103- 

1 r\n. 
jL<j y- 

1 1 c_ 



OH 

70 

76 

82 

88 

94 

100 

106 



Source Label 

Length attribute (decimal) 

Value attribute (hexadecinaal) 

Listing sequence number of statement which defiaes label 

Listing sequence numbers of statements 

which contain the label 



[♦Replaces Table of Defineid symbols if CROSSREF is specified in ADPTN statement, 

L . 



1 Tfi 



SYMBOL TYPE ID ADDR LENGTH LD IF 
SD 01 0100 0048 



EXTERNAL SYMBOL DICTIONARY 



EXAMPLE 



LOCATN OBJECT CODE ADDl ADD2 STMT 



SOURCE STATEMENT 



0100 








0002 




START 


256 




0000 








0003 




USING 


*-256,0 




0008 








0004 


R8 


EQU 


8 




0009 








0005 


R9 


EQU 


9 




0100 


4890 


013E 

ERR 


013E 


0006 
0007 


BE3IN 


LH 
MVA 


R9,ADDR 
SWITCH, 


LOAD ADDRESS OF TABLE 
SET SWITCH OFF 


0104 


D201 


0140 0144 0140 0144 


0008 




MVC 


LASTAD(2) ,H0 


CLEAR TABLE 


OlOA 


4D80 


0000 
ERR 


0000 


0009 




BAS 


R8,SUBR 


GO TO SUBROUTINE 


OlOE 


9500 


0142 


0142 


0010 




CLI 


SWITCH, 


IF SWITCH OFF 


0112 


4780 


OllE 


OllE 


0011 




BE 


EXIT 


LEA7E ROUTINE 


0116 


4A90 


0146 


0146 


0012 




AH 


R9,H2 


ELSE INCREASE I^DDRESS 


OllA 


47F0 


0104 


0104 


0013 




B 


BE3IN+4 


AND BRANCH BACK 


OllE 


4D80 


OOCO 


OOCO 


0014 


EXIT 


BAS 


R8,192 




0122 








0015 


AREA 


DS 


4H 




012A 








0016 


TABLE 


DS 


lOH 




013E 


0122 






0017 


ADDR 


DC 


Y(AREA) 




0140 


012A 






0018 


LAS TAD 


DC 


Y (TABLE) 




0142 


00 






0019 


SWITCH 


DC 


X " • 




0144 


0000 






0020 


HO 


DC 


H'O* 




0146 


0002 






0021 
0022 


H2 


DC 
END 


H'2' 





0002 STATEMENTS FLAGGED 



POS.ID REL^ID FLGS ADDR 



01 
01 



01 
01 



04 
04 



013E 
0140 



RELOCATION DICTIONARY 



DIAGNOSTICS 



STATEMENT NO. 
0007 
0009 



ERROR MESSAGES 
UNDEFINED OPERATION CODE 
UNDEFINED SYMBOL 



ACTION 

STATEMENT TREATED AS COMMENT 

STATEXIENT INCOMPLETELY ASSEMBLED 



TABLE OF DEFINED SYMBOLS 



SYMBOL 

ADDR 

AREA 

BEGIN 

EXIT 

HO 

H2 

LASTAD 

R8 

R9 

SWITCH 

TABLE 



LEN VALUE 



013E 
0122 
0100 
OllE 
0144 
0146 
0140 
0008 
0009 
0142 
012A 



TYPE 

Y 

H 
I 
I 
H 
H 
Y 



Figure 17. Sample Listing of Assembler Output 
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Macro Maintenance Program 



r 


T T 


j FIELD 


jPRISr ! MEANING 


1 


iPDSITlJNj 


L 


i. J. 



I STMNT NO. I 1-8 | Statement number | 

{iyiACRO DEFISiriOSj 12-91 | Macro definite j 

I STATEMENT j jion Statement j 

I DIAGNOSTIC I 95-120 ) Diagnostic mes- | 

I I isage j 

L X X , J 



MACRO 



STMT NO, 



MACRO DEFINITION STAIEMENT 



DIAGNOSTIC 



SNAVIE 



ADD 6F1, &F2„&F3, &F4„6F5 



ADD 


001 


♦ 






ADD 


002 


SNAVIE 


STH 


12, SAVEAREA 


ADD 


003 




LH 


12,6F1 


ADD 


004 


SALl 


SETA 


2 


ADD 


005 


.ADD 


AH 


12,gSYSLIST{gALl) 


ADD 


006 


6AL1 


SETA 


6AL1+1 


ADD 


007 


€AL2 


SETA 


6AL1+1 


ADD 


008 




AIFB 


(•6SYSLI3r(£AL2)' 


ADD 


009 




STH 


12, 6SYSLIST{&AL1) 


ADD 


010 




LH 


12,SA7EAREA 


ADD 


Oil 




MEND 




Figure 18. 


Sample 


Listing 


of Macro Maintena 



NE 



) . ADD 



Appendix H. Assembler Diagnostic Messages 



The associated actions (see Output Listings) are abbreviated as: 

SA = Statement assembled 
STC= Statement treated as comment 
SIA= Statement incompletely assembled 
AIE= Assembly in Error 



1 



j 

ASSEMBLER CONTROL STATEMENT - 
AWORK INVALID 



Diagnostic Message 



Meaning 



Associated 
Action 



Notes 



The operand of an AWORK statement is 
not a single operand of 
either 1 or 2. 



sr:: 



ASSEMBLER CONTROL OR MACRO 
STATEMENT - INVALID NAME FIELD 



^n ^OPTN statement has been detected 
with an entry in the name field. The 
name field has been ignored , but the 
remainder of the statement has been 
processed. 



S?^ 



ASSEMBLER CONTROL STATEMENT - 
INVALID OR MISSING OPERAND 



?^n AOPTN statement has been encount- 
ered with no operands or with an 
operand function that is not one of 
the valid options. The valid operand 
and any other operands following are 
ignored. 



SIA 



4 



BAD DATA 



Erroneous data found in DC or DCCW 
statement. 



81?^ 



CONSTANT TRUNCATED 



Specified constant length is less 
than the actual length of a constant. 



Sh 



ILLEGAL CONTINUATION LINE 



A statement is continued on the sub- 
sequent line (in the subsequent 
card) . 



STC 



ILLEGAL FORMAT 



1. Invalid delimiter. 

2. Missing or extra field (s) in sta- 
tement operand. 

3. First operand is a literal. 
tJ. Blank operand in a machine 

instruction, 

5. Parentheses are not paired. 

6. Invalid symbol in L' SYMBOL. 

7. Illegal double indexing in RX 
format. 

8. Illegal type of self-defining 
term. 



SIA 



ILLEGAL MODIFIER 



Incorrect modifier in a DC or DS 
statement. 



SI\ 



IMPROPER START VALUE 



The value in a START statement is not 
an integer multiple o.f two. (The 
value is increased to the next higher 
integer multiple of two) . 



S?^ 



INVALID CONDITION CODE 
SPECIFICATION 



Condition code mask specified in BC 
or BCR is other than 0-15. 



SIA 
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Diagnostic Message 



Meaning 



a r>l- 1 "^n 



?^ssDciate3| Notes] 
i I 
I ^ 

I I 



Tj|i7aT.Tn EXPRESSIO!^ 



+- 



i. " OjT axj. j.ns ui uC uxv-ino :;Av^cp<- ui^ 

and EQU, the value of the expres- 
sion is negative. 

2. rhe expression contains more than 
three terms. 

3. rhe expression is complex relo- 
catable, but it is not allowed 
for this instruction. 

4 i rhe ternrts in a multiplication are 
not absolute. 

5. An arithmetic operator begins or 
ends an expression. 

6. Parentheses are not paired. 

7. During expression evaluation a 
value greater than 2^^-l or less 
than -2^^ has been reached. 

8. Invalid delimiter sequence^ 

9. rhe operand in an ORG statement 
is not relocatable within the 
section. 

10. The operand in an END or XFR sta- 
tement is not relocatable. 



OJ-fi' OJ.U 



INVALID IMMEDIATE DATA 



The immediate data is an invalid 
self -defining term (e.g., more than 
one byte) . 



SIA 



INVALID LENGTH VALUE 



1. For SS type instructions. 

a. Length is greater than 256 

b. For two length instructions, 
LI or L2 is greater than 16. 

2. Length is specified as a relocat- 
able term. 



INVALID LITERAL SPECIFICAnON 



Literals have been specified, 

although an AOPT:^ LITERAL stateaient 
is not included. (TPS Assembler 
only) . 



SIA 



INVALID NAME FIELD 



1. For all instructions except 
TITLE: The Statement name begins 
with a non-alphabetic character. 
($, 3, and # are considered 
alphabetic characters) . 

2. The statement name is longer than 
eight characters. 

3. Non-alphanumeric characters 
appear within the statement name. 

4. A statement name is present in a 
statement which must not have a 
name. 

5. A DSECT statement has no name. 

6. No name or an invalid name in an 
EQU statement. 



SA/STC 



INVALID OCCURENCE OF ASSEMBLER 
STATEMENT 



Program has more than one 

START card, 

A START card is improperly placed 

in the program. 

An LT0R3 appears within a dummy 



STC 
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Diagnostic Message 



Meaning 



Associated 
Action 



T 1 

Notes 



INVALID RE3ISTER CONTENTS 



2. 



Specified register contents are 
not relocatable or they exceed 

Specified contents for registers 
0-7 are not correct. 



SI\/SA 



INVALID REGISTER SPECIFICATION 



1. Register specified is other than 
to 15. 

2. Register specified as relocatable 
term. 



SIA/STC 



INVALID SELF-DEFINING TERM 



The self-defining term: 

1. is too large 

2. is too long 

3. contains an invalid character. 



SIA 



INVALID OPERATION CODE 



1. The operation code begins with a 
non-alphabetic character. ($, a, 
and # are considered alphabetic 
characters) . 

2. Non-alphanumeric characters 
appear i<^ithin the operation code. 



STC 



LIMIT ERROR 



Storage required for a constant 
exceeds 2^5-1. 



st:: 



+- 



LIMIT EXCEEDED 



1. The value of the location counter 
has exceeded 2^^-l. 

2. The value of the location counter 
set by the ORG statement has gone 
below the initial value of the 
control section. 

3. The total number of CSECT, DSECT, 
and EXTRN statements exceeds 31. 

4. The total number of CSECT and 
DSECT statements exceeds 8. 

5. Total number of ENTRY statements 
must not exceed 20. 



AIE 



4- 



•f- 



I ] 

1, 2 



MACRO - GENERATION TERMINATED 



Maximum number (999 for TPS; 4999 for 
OPS) of executed AGO, AGOB, AIF, and 
AIFB statements exceeded. 



st; 



+- 



MACRO - GENERATION TERMINATED 
BY OPERATOR'S INTERVENTION 



The generation is terminated after 
the operator has assigned the value 
'FF' to the core storage position 
*OOCE' via the console. 



st; 



+- 



+ ^ 

1, 2 



I ^ 



MACRO - INNER MACRO NESTING 
DEPTH EXCEEDED 



■ + ■ 



An inner nacro instruction has been 
given within a third level. (This 
macro instruction D^ill not be 
expanded) . 



st: 



MACRO INSTRUCTION 
OCCURANCE OF DATA 



- INVALID 



The columns up to the continue column 
of a continuation line are not blank. 



SA 



+ ■ 



MACRO INSTRUCTION 
OPERAND 



- INVALID 



For exanple, operand longer than 7 
characters, or operand has an equal 
sign in other than the first 
position. 



st; 



.i J 
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■r T 

I ?^ss3ciate3| Notes 



Diagnostic Message 



Meaning 



no (^ J. <jii 



i MACRO INSTRUCTION - KEYWORD 
i MULTIPLE SPECIFIED 



i k keyword occurs mora than once in a 
I macro instruction operand. 



SA 



MACRO INSTRUCTION - TOO XIASFY 

OPERANDS 



+- 



More operands in a macro instruction 
ttian specified in the prototype sta- 
tement. The extra operands are 
ignored. 



SI\ 



MACRO INSTRUCTION - UNDEFIi 
KEZ^JORD 



iv t. ^ »» v^ 1. vj. J.11 .iicii^j.v-' j-iio CI. 1J.V- ui uii uijcro H^U 

match any keyword defined in the pro- 
totype. This operand is ignored; all 
other operands are processed. Note: 
Only one message appears when more 
than one undefined keyword appears in 
the same card of a macro instruction. 



+ ■ 



MACRO - INVALID DATA IN 
ARITHMETIC OPERATION 



Non~nuiT!eric character encountered in 
an AIF- AIFB- or SETB statement vjith 
an arithmetic relation or in a SETA 
state.Tient. 



MACRO - INVALID RESULT IN 
ARITHMETIC OPERATION 



For an AIF, AIFB, or SETB Statement 
with an arithnnetic relation or for a 
SETA STATEMENT: 

1. Result is negative 

2. Result is greater than 99999. 



1, 2 



MACRO - INVALID SUBSTRINC 



Specified substring not wholly con- 
tained in the character string of a 
3ETC instruction. 



src 



1, 2 



MACRO - INVALID SYSLISI 
REFERENCE 



3YSLIST reference to a paraiieter 
number is less than 1 or greater than 
£i9. 



st:: 



1, 2 



MACRO ' LONG FINAL RESu 

CHARA::rER operation 



Character string result has exceeded 
eight characters in an AIF, AIFB, or 
SETB statement with a character rela- 
tion or a SETC statement. 



i-, ^ 



MACRO - LONG INTERMEDIATE 
IN CHARACTER OPERATION 



RESULT 



Character string has exceeded sixteen 
characters for a SETC statement. 



STC 



1, 2 



MACRO - STATEMENT TRUNCATED 



A generated model statement exceeds 
column 71 



S^ 



I ^ 

2 



MACRO - UNDEFINED OPERATION CODE 



An instruction with an operation code 
which is not recognized as a valid 
System/360 Model 20 operation code 
and is not contained in the macro 
library was found during macro 
generation. 



src 



MISSING UF IN XIO 



Missing unit and function specifica- 
tion in XIO statement. 



SI^^ 



MNOTE 



A message from the macro coder to 
the macro user, generally identifying 
Ian error in the macro instruction^ 



None 
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Diagnostic Message 



Meaning 



AiSSDciatecl 
Action 



Motes 



MULTIPLE DEFINITION 



1. Identical symbols appear in the 
name fields of ti/o or more 
statetients. 

2. For an EXTRN statement: 

a. Operand is identical to the 
name field of another 
state.Tient 

b. Two or more stateiients have 
identical operands 

3. The name fields of CSECT and/or 
DSECT statements are identical. 
The statement encountered second 
is considered unnamed. 



SA/STC 



NOT ADDRESSABLE 



1. No base register specified. 

2. An absolute displacement is 
greater than 4 095 

3. Base register (s) specified in 
USING statementCs) cannot be app- 
lied, (no coincidental 
relocatability) . 



SI?l 



RELOCATION ERROR 



STATEMENT FORMAT CANNOT 
BE ANALYZED 



1. Base register specified in relo- 
catable operand. 

2. Relocatable expression in YLK ). 

3. Symbol in operand of ENTRY state- 
ment is defined in an unnamed 
control section. 



Sk 



1. Erroneous operand in an 
instruction, 

2. Blank operand in an Assembler 
instruction. 

3. For DC or DS: 

a. First character in operand 
field is not alphabetic or 
numeric. 

b. No alphabetic character fol- 
lows the duplication factor. 

c. No terminating apostrophe or 
close parenthesis. 

d. Terminating apostrophe or 
close parenthesis followed by 
a non-blank character. 

e. Length specification is 
non-numeric. 

f. Invalid constant type. 

4. An operation code and/or an 
operand is not contained in 
columns 2 through 71. 

5. Operation code has more than 5 
characters. 

6. DC literal has no fourth 
sub-field. 

7. No initial apostrophe, in TITLE 
statement. 

8. More than four registers are spe- 
cified in a USIN3 or DROP 
statement. 



STC 



-+ 



SYMBOL NOT PREVIOUSLY DEFUSED 



k symbol in the operand of an ORG or 
EQU statement is not defined in a 
previously encountered statement. 



st: 



Appendix 'd 143 



T 

eaJNlo 



Diagnostic Message 



Meaning 



?^ssDciat 
Action 



tes! 



TOO MANY DIGITS 



Too [P.an^' dii^its in a deciiiisl valuE 
a self-defining term. 



SA 



+■ 

Mnemonic operation code is not reco- | 
gnized as a valid IBM 3ysteii/360 j 
Model 20 operation code and is not j 
contained in the macro library. j 



UNDEFINED OPERATION CODE 



UNDEFINED SYMBOL 



st: 



-4- 



f- 

\A symbol has been referenced but it \ 
is not defined in the name field of | 
any instruction. j 



UNPAIRED AMPERSAlNTD 



Odd number of ampersands encountered | 

in a constant. {Ttfo ampersands must | 

be specified for every ampersand j 

wanted in a constant. ) | 

JL. 



SA 



Notes: 



These messages refer to statements in the assembly listing which contain additional 
information. This additional information is: the macro-instruction name, and a 
pointer to the instruction in error within the generated macro routine. 

Diagnostic messages for macro instructions may be caused by improper data iti the 
macro instruction (for example, alphabetic characters supplied for a length 
specification) . 
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Appendix I. Diagnostic Messages of the Macro Maintenance 
Program 



MESSAGE 



MEANING 



CHARACTER VALUE TOD LONG 



A character value of this statement is too long. 



CHARACTER STRING TOO LONG 
COLS 1 THRU 15 NOT BLANK 



A character string of this statement is too long. 



Columns 1 through 15 must be blank. 



FORMAT ERROR IN NAME FLD 



The name field of this statement has the wrong format, 



ILLEGAL CONTIN PUNCH 
ILLEGAL OPERAND 



Column 7 2 must be blank for this statement. 



An operand is not allowed for this statement. 



ILLEGAL OPERATION CODE 



The operation code of this statement is not allowed within 
a macro definition, or the operation code specified in a 
prototype statement is a machine instruction or an 
assembler statement. 



4- 



ILLEGAL STATEMENT FORMAT 



The format of the statement is illegal (has no operation 
code) . 



+- 



ILLEGAL ::ONTINUATION LINE 



4- 



The continuation line is not permitted. 



ILLEGAL SUBSTRING 



A substring specification is not permitted for this 
statement. 



INCORRECT CONT LINE 



The continuation line is incorrect (column 16 of a con- 
tinuation line is blank) . 



INV 
INV 
INV 
INV 
INV 
INV 
INV 



ARITHM TERM OF SUBSTR 
CHAR STR TERMINATION 



The arithmetic term of a substring is invalid. 



f- 



The termination of the character string is incorrect. 



FORMAT OF ARITHM EXPR 
FORMAT OF LOGICAL EXP 



-+- 



Arithmetic expression has an invalid format. 



The format of the logical expression is invalid. 



OPERAND TERMINATION! 
PROTOTYPE STATEMENT 
RELATIONAL OPERATOR 



The termination of the operand is incorrect. 



4- 



The prototype statement is incorrect. 



An invalid relational operator (E3, NE, GT, GE, LT, LE) is 
specified. 



INV 
INV 
INV 
INV 
INV 
INV 



SET STATEMENT NAME 
SUBSTR TERMINATION 



The name of a SET statement is invalid. 



4 



The termination of a substring is incorrect. 



SYMBOL TERMINATION 
SYMB PAR INI OPERAND 



4- 



The termination of a symbol is incorrect. 



The operand contains an incorrect symbolic parameter. 



SYMB PAR IN NAME FLD 
SYSVARSYM IN NAME FLD 



The name field contains an incorrect symbolic parameter 



j. 

I INV SYSVARSYM IN OPERAND 



The name field contains an incorrect system variable 
sym.bol. 



I The operand contains an incorrect system variable s/mbol. \ 
.1 J 
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MESS^lGE 



MEANING 



INVALID ARITHMETIC TERM 



I The statement contains an arithmetic term which is 
i invalid. 

4_^ 



INVALID LOGICAL OPERATOR 



I An invalid logical operator is soecified. 

4 1 

i The ooeration code for this statement is invalid, 



INVALID OPERATION CODE 



INVALID MACRO STATEMENT 



I The macro statement specified is incorrect 
4 



TMV77\TTr» MMfiTT? nV! 



>_/xij wjrcrv.(-M^L/ 



j The Dperarid of an MNOrE statement is invalid. 



INVALID OPERAND TYPE 



j Positional prototype statement with keyword or vice versa. 



INVALID SEQUENCE SYMBOL 



I The sequence symbol of this statement is invalid. 



INVALID STANDARD VALUE 
MORE THAN 3 ATITHM TERMS 



I The standard value specified for a keyword is incorrect 
I 

|rhis stateirent contains more than 3 arithnetic terns. 



MULTI DEFINED SYMB PARAM |A parameter is defined more than once. 



NO END PAREN IN OPERAND 
NO INIT • IN CHAR STRING 



|The terminating parenthesis of this operand is missing. 
I 

I The initial apostrophe of a character string is missing. 



NO INIT ' IN 2^?D CHAR VAL 



I The second character value has no initial apostrophe. 
.| 

jrhe initial parenthesis of this operand is missing. 



NO INIT PAREN IN OPERAND 
NO SE2 SYMB IN NAME FLD 



I The name field of an ANOP statement does not contain a 
I sequence symbol. 



OPERAND MI SSI N: 



|The operand of this statement is missing. 



OPERAND NOT COMTINUED 



I The continuation of an operand is missing. 



OPERAND OVERFLOWS COL 71 



j The operand extends beyond column 71. 
.|. 

I The contents of columns 73 through 8 of this stateneat 
I are out of sequence. 
4___._„ 



S * 



Sequence Symbol 

MULTI DEFINED 



I A sequence symbol is defined more than once. 
.^ 



Sequence Symbol 
NOT DEFINED 



I A sequence symbol should be defined. 



]T00 MANY SYMB PARAMETERS 
L 



|rhis stateirent contains too many symbolic paraneters 



* TPS only 



146 



Appendix J. Character Codes 



This appendix lists all System/360 card cDdes to which a printer graphic is assigned, 
(The printer graphic may vary according to the national character set.) 



r T T 


T — 





1 


1 EBCDIC 


CARD PUNCH 1 PRINTER 1 






ICODE 


CO^IBINATIDN 1 GRAPHIC 1 


DECIMAL 


HEXADECiyiAL 1 


L 


L « 


J 




J 


r 

1 


1 


T 




1 


1 
100000000 


12,0,9,8,1 1 







00 1 


j 00000001 


12,9,1 1 




1 


01 1 


100000010 


12,9,2 1 




2 


02 1 


100000011 


12,9,3 1 




3 


03 1 


joooooioo 


12,9,4 1 




4 


04 1 


100000101 


12,9,5 1 




5 


05 1 


1 00000110 


12,9,6 1 




6 


06 1 


100000111 


12,9,7 1 




7 


07 1 


100001000 


12,9,8 1 




8 


08 1 


100001001 


12,9,8,1 1 




9 


09 1 


100001010 


12,9,8,2 1 




10 


OA 1 


100001011 


12,9,8,3 1 




11 


OB 1 


100001100 


12,9,8,4 1 




12 


OC 1 


100001101 


12,9,8,5 1 




13 


OD 1 


1 00001110 


12,9,8,6 1 




14 


OE 1 


100001111 


12,9,8,7 1 




15 


OF 1 


1- ^ 


^. 


+- 





[ ^ 


JOOOIOOOO 


12,11,9,8,1 1 




16 


10 1 


1 00010001 


11,9,1 1 




17 


11 1 


100010010 


11,9,2 1 




18 


12 1 


100010011 


11,9,3 1 




19 


13 1 


100010100 


11,9,4 1 




20 


14 1 


1 00010101 


11,9,5 1 




21 


15 1 


100010110 


11,9,6 1 




22 


16 1 


100010111 


11,9,7 1 




23 


17 1 


100011000 


11,9,8 1 




24 


18 1 


100011001 


11,9,8,1 1 




25 


19 1 


100011010 


11,9,8,2 1 




26 


lA I 


100011011 


11,9,8,3 1 




27 


IB 1 


100011100 


11,9,8,4 1 




28 


ic 1 


100011101 


11,9,8,5 1 




29 


ID 1 


100011110 


11,9,8,6 1 




30 


IE 1 


100011111 

1 


11,9,8,7 1 
1 


J. 


31 




IF 1 

J 


r 


1 


t 




r 1 


100100000 


11,0,9,8,1 1 




32 


20 1 


1 00100001 


0,9,1 1 




33 


21 1 


100100010 


0,9,2 1 




34 


22 1 


100100011 


0,9,3 1 




35 


23 1 


100100100 


0,9,4 1 




36 


24 1 


100100101 


0,9,5 1 




37 


25 1 


100100110 


0,9,6 1 




38 


26 1 


100100111 


0,9,7 1 




39 


27 1 


100101000 


0,9,8 1 




40 


28 1 


looioiooi 


0,9,8,1 1 




41 


29 1 


100101010 


1 0,9,8,2 1 




42 


2A 1 


100101011 


0,9,8,3 1 




43 


2B 1 


100101100 


0,9,8,4 1 




44 


2C 1 


100101101 


0,9,8,5 1 




45 


2D 1 


100101110 


0,9,8,6 1 




46 


2E 1 


100101111 


0,9,8,7 1 




47 


2F 1 
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r 1 T- 




T 


-T" 




— 1 


1 EBCDIC 


CARD PUlMCH 1 


PRINIER 










ICODE 


COMBINATION 1 


GRAPHIC 


1 DECIMAL 




HEXADECIMAL 




j. ^ 


+_ 




+ 


- + - 




— i 


100110000 


12,11.0.9.8-1 1 




i 48 




30 




i 00110001 


9,1 1 




1 49 




31 




]00110010 


9,2 1 




1 50 




32 




] poiiooii 


9,3 1 




1 51 




33 




j 00110100 


9,4 1 




1 52 




34 




i 00110101 


9,5 i 




i 53 




35 




100110110 


9,6 1 




1 54 




36 




100110111 


9,7 1 




i 55 




37 




1 00111000 


9,8 1 




1 56 




38 




100111001 


9,8,1 1 




1 57 




39 




1 00111010 


O O O I 




i 58 




3A 




100111011 


9.8,3 1 




1 59 




3B 




1 00111100 


9,8,4 1 




1 60 




3C 




[00111101 


9,8,5 1 




1 61 




3D 




j 00111110 


9,8,6 1 




1 62 




3E 




100111111 

^ ^ 

j 01000000 


9,8,7 1 
.__ ^. 




1 63 
+ 

1 64 


- + - 


3F 


--\ 


blank 


40 


101000001 


12,0,9,1 1 




1 65 




41 




101000010 


12,0,9,2 1 




1 66 




42 




i 01000011 


12,0,9,3 1 




1 67 




43 




JOIOOOIOO 


12,0,9,4 j 




1 68 




44 




101000101 


12,0,9,5 1 




1 69 




45 




JOIOOOIIO 


12,0,9,6 1 




1 70 




46 




1 01000111 


12,0,9,7 j 




1 71 




47 




joiooiooo 


12,0,9,8 1 




1 72 




48 




101001001 


12,8,1 1 




1 73 




49 




1 01001010 


12,8,2 1 




1 74 




4A 




101001011 


12,8,3 1 


. 


1 75 




48 




101001100 


12,8,4 1 


< 


1 76 




4C: 




JOIOOIIOI 


12,8,5 1 


( 


1 77 




4D 




101001110 


12,8,6 1 


+ 


1 78 




4E 




101001111 


12,8,7 1 


! 


1 79 




4F 




j. ^ 


^ 1_ 




1 


-1- 





— 1 


101010000 


12 1 


£ 


1 80 




50 




1 01010001 


12,11,9,1 1 




I Bl 




51 




ioioiooio 


12,11,9,2 1 




1 82 




52 




1 01010011 


12,11,9,3 1 




1 83 




53 




101010100 


12,11,9,4 1 




1 84 




54 




101010101 


12,11,9,5 1 




1 85 




55 




101010110 


12,11,9,6 i 




1 86 




56 




1 01010111 


12,11,9,7 i 




1 87 




57 




101011000 


12,11,9,8 1 




! 88 




58 




1 01011001 


11,8,1 1 




1 89 




59 




101011010 


11,8,2 1 


! 


1 90 




5A 




101011011 


11,8,3 1 


$ 


1 91 




5B 




101011100 


11,8,4 1 


+ 


1 92 




52 




JOIOIIIOI 


11,8,5 i 


) 


1 93 




5D 




101011110 


11,8,6 1 


; 


1 94 




5E 




joioiiiii 


11,8,7 1 


1 


1 95 




5F 





r 1 

lEBCDIC 


r 

CARD PUNC^ 


[ 


--T 

1 PRINTER 


T- 


1 


— 1 


1 CODE 


COVIBINATIDfi 


1 GRAPHIC 


1 DECIMAL 


HEXADECIMAL 




J 






._r 


X J 







1 01100000 




r 

11 




r — 


T 1 

1 96 


60 




101100001 


0,1 




1 / 


1 97 


61 




101100010 


11,0,9,2 






1 98 


62 




101100011 


11,0,9,3 






1 99 


63 




1 01100100 


11,0,9,4 






1 100 


64 




101100101 


11,0,9,5 






1 101 


65 




i 01100110 


11,0,9,6 






1 102 


66 




101100111 


11,0,9,7 






1 103 


67 




101101000 


11,0,9,8 






1 104 


68 




101101001 


0,8,1 






1 105 


69 




101101010 


12,11 






1 106 


6A 




1 01101011 


0,8,3 




1 , 


1 107 


6B 




101101100 


0,8,4 




1 ^" 


1 108 


6C 




101101101 


0,8,5 






1 109 


6D 




1 01101110 


0,8,6 




1 > 


1 110 


6E 




101101111 

L 


0,8,7 




1 ? 

._J 


1 111 

X 


6F 






101110000 




12,11,0 




T — 


T 1 

1 112 




70 




101110001 


12,11,0,9, 


1 




1 113 


71 




101110010 


12,11,0,9, 


2 




1 114 


72 




101110011 


12,11,0,9, 


3 




1 115 


73 




101110100 


12,11,0,9, 


4 




1 116 


74 




101110101 


12,11,0,9, 


5 




1 117 


75 




101110110 


12,11,0,9. 


6 




1 118 


76 




101110111 


12,11,0,9, 


7 




1 119 


77 




1 01111000 


12,11,0,9, 


8 




1 120 


78 




1 01111001 


8,1 






1 121 


79 




JOIIIIOIO 


8,2 




1 : 


1 122 


7A 




] 01111011 


8,3 




1 ^ 


1 123 


78 




101111100 


8,4 




1 ^ 


1 124 


7C 




1 01111101 


8,5 




1 t 


1 125 


7D 




101111110 


8,6 




1 = 


1 126 


7E 




1 01111111 

L 


8,7 




1 


1 127 

L 


7F 




110000000 




12,0,8,1 




t 


r 

1 128 


80 




110000001 


12,0,1 






1 129 


81 




110000010 


12,0,2 






1 130 


82 




110000011 


12,0,3 






1 131 


83 




110000100 


12,0,4 






1 132 


84 




110000101 


12,0,5 






1 133 


85 




110000110 


12,0,6 






1 134 


86 




110000111 


12,0,7 






1 135 


87 




I 10001000 


12,0,8 






1 136 


88 




110001001 


12,0,9 






1 137 


89 




JIOOOIOIO 


12,0,8,2 






1 138 


8A 




110001011 


12,0,8,3 






i 139 


88 




110001100 


12,0,8,4 






1 140 


8C 




JlOOOllOl 


12,0,8,5 






1 141 


8D 




110001110 


12,0,8,6 






1 142 


8E 




110001111 


12,0,8,7 






i 143 


8F 
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r T 


T 


T 


T" 




— 1 


] EBCDIC 


CARD PUNCP 


[ 1 PRINTER 1 






1 


ICODE 


COMBINATION 1 GRAPHIC 1 DECIMAL 




HEXADECIM.AL 


1 


j. ^ 


h 


+ 


^ 


-j- 




-\ 


MOOIOOOO 


12,11,8,1 


1 


1 1^/l/| 




90 


1 
1 


j 10010001 


12,11,1 




i 145 




91 




110010010 


12,11,2 




1 146 




92 




110010011 


12,11,3 




1 147 




93 




1 luu ±<J J.UU 


1 '-^ -1 -? 1. 




i 148 




94 




110010101 


12,11,5 




1 149 




95 




110010110 


12,11,6 




1 150 




96 




! 10010111 


12,11,7 




1 151 




97 




110011000 


12.11.8 




j 152 




98 




jlOOllOOl 


12,11,9 




1 153 




99 




i 10011010 


12,11,8,2 




1 164 




9A 




110011011 


12,11,8,3 




1 155 




93 




110011100 


12,11,8,4 




1 156 




9C 




110011101 


12,11,8,5 




1 157 




9D 




110011110 


12,11,8,6 




1 158 




9E 




110011111 


12,11,8,7 




1 159 




9F 




h 


h 


f 


+ 


- + - 




— -I 


iioiooooo 


11,0,8,1 




i 160 




AO 




110100001 


11,0,1 




j 161 




Al 




110100010 


11,0,2 




1 162 




A2 




110100011 


11,0,3 




1 163 




A3 




JIOIOOIOO 


ll,0,ti 




1 164 




A4 




110100101 


11,0,5 




1 165 




A5 




110100110 


11,0,6 




1 166 




A6 




110100111 


11,0,7 




i 167 




A7 




jioioiooo 


11,0,8 




1 168 




A8 




110101001 


11,0,9 




i 169 




A9 




110101010 


11,0,8,2 




1 170 




AA 




jioioioii 


11,0,8,3 




1 171 




AB 




110101100 


11,0,8,4 




1 172 




AC 




JIOIOIIOI 


11,0,8,5 




1 173 




AD 




110101110 


11,0,8,6 




1 174 




AE 




jlOlOllll 


11,0,8,7 




1 175 




AF 




J, — „,-__H 




1 


^___4. 


--I— 




i 


._ . 


1. 


-~-f - 


T 




1 


110110000 


12,11,0,8, 


1 1 


1 176 




BO 




1 10110001 


12,11.0.1 




! 177 




Bl 




110110010 


12,11,0,2 




j 178 




B2 




110110011 


12,11,0,3 




1 179 




B3 




110110100 


12,11,0,4 




1 180 




B4 




110110101 


12,11,0,5 




1 181 




B5 




110110110 


12,11,0,6 




1 182 




B6 




110110111 


12,11,0,7 




1 183 




B7 




jlOlllOOO 


12,11,0,8 




} 184 




B8 




110111001 


12,11,0,9 




1 185 




B9 




110111010 


12,11,0,8, 


2 1 


1 186 




BA 




jlOlllOll 


12,11,0,8, 


3 1 


1 187 




BB 




110111100 


12,11,0,8, 


^ 1 


1 188 




BC 




110111101 


12,11,0,8, 


5 i 


1 189 




BD 




110111110 


12,11,0,8, 


6 1 


1 190 




BE 




110111111 


12,11,0,8, 


7 i 


1 191 




BF 
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r 1 

1 EBCDIC 


1 " 

CARD PUNCH 


r 

PRINTER 


r 




--1 


|CODE 


COMBINATION 


GRAPHIC 


1 DECIMAL 


HEXADECIMAL 




111000000 


— ^ 

12,0 




^ ^ 

1 192 


h 

CO 


— 1 


111000001 


12,1 


A 


i 193 


CI 




111000010 


12,2 


1 B 


1 194 


C2 




111000011 


12,3 


C 


1 195 


C3 




111000100 


12,4 


1 D 


1 196 


C4 




111000101 


12,5 


E 


1 197 


C5 




111000110 


12,6 


1 F 


1 198 


C6 




111000111 


12,7 


G 


1 199 


C7 




111001000 


12,8 


1 H 


1 200 


C8 




111001001 


12,9 


1 I 


1 201 


C9 




jiiooioio 


12,0,9,8,2 




1 202 


CA 




1 11001011 


12,0,9,8,3 




1 203 


CB 




liiooiioo 


12,0,9,8,4 




204 


CC 




111001101 


12,0,9,8,5 




1 205 


CD 




111001110 


12,0,9,8,6 




206 


CE 




111001111 


12,0,9,8,7 




1 207 


CF 




1-— H 

jiioioooo 




11,0 


[ 


f ^ 

1 208 


DO 


"~ J 


111010001 


11,1 


J 


1 209 


Dl 




1 11010010 


11,2 


1 K 


1 210 


D2 




I 11010011 


11,3 


L 


211 


D3 




111010100 


11,4 


1 M 


1 212 


D4 




111010101 


11,5 


N 


213 


D5 




111010110 


11,6 


1 


1 214 


D6 




111010111 


11,7 


P 


215 


D7 




111011000 


11,8 


1 2 


1 216 


D8 




111011001 


11,9 


R 


217 


D9 




111011010 


12,11,9,8,2 




1 218 


DA 




111011011 


12,11,9,8,3 




1 219 


DB 




111011100 


12,11,9,8,4 




220 


DC 




111011101 


12,11.9,8,5 




1 221 


DD 




111011110 


12,11,9,8,6 




222 


DE 




111011111 


12,11,9,8,7 




1 223 


DF 




[ ^ 

1 11100000 


^ 

0,8,2 




f ^ 

1 224 


EO 


- — -j 


111100001 


11,0,9,1 




225 


El 




111100010 


0,2 


1 s 


1 226 


E2 




111100011 


0,3 


T 


227 


E3 




111100100 


0,4 


1 U 


1 228 


E4 




111100101 


0,5 


V 


229 


E5 




111100110 


0,6 


1 w 


1 230 


E6 




111100111 


0,7 


X 


231 


E7 




111101000 


0,8 


1 Y 


1 232 


E8 




jlllOlOOl 


0,9 


z 


233 


E9 




111101010 


11,0,9,8,2 




1 234 


EA 




111101011 


11,0,9,8,3 




235 


EB 




111101100 


11,0,9,8,4 




236 


EC 




111101101 


11„0,9,8,5 




1 237 


ED 




111101110 


11,0,9,8,6 




238 


EE 




111101111 


11,0,9,8,7 




1 239 


EF 





.i 
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lEBCDi; 
I CODE 



CARD PUNCH 
rOMRT NATION 



I PRINTER 



h 



ntrr-TMBr 



. J-.'inu 



111110001 
jllllOOlO 
j 11110011 

i 11110100 

111110101 
111110110 
1 11110111 
1 11111000 

i 11111001 

1 11111010 
111111011 
111111100 
111111101 
111111110 

111111111 

L 



1 I 1 

2 I 2 

3 I 3 

4 \ 4 

5 i 5 

6 I 6 

7 i 7 

8 { 8 

9 I 9 
12,11,0,9,8,2 I 
12,11,0,9,8,3 I 
12,11,0,9,8,1 I 
12,11,0,9,8,5 I 
12,11,0,9,8,6 I 
12,11,0,9,8,7 j 



240 
241 
242 
243 
244 
245 
246 
247 

Oh O 

^ *T U 

249 
250 
251 
252 
253 
254 
255 



FO 
Fl 
F2 
F3 
F4 
F5 
F6 
F7 

■no 

r o 

F9 

FA 
FB 
FC 
FD 

FE 
FF 
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Appendix K. Minimum and Maximum System Configuration 



Minimum System Configuration 

The following is the minitnuon systenti confi- 
guration required to perform an assembly. 



IBM 2501 Card Reader Model hi or A2, 
IBM 2520 Card Read-Punch Model Al, 
IByi 2560 .Vlulti- Function Card Machine 
Model Al; 



Submodel 2 

An IBM 2020 Central Processing Unit Model 
C2 for the TPS (8,192 bytes of main 
storage), or BC2 for the DPS (12,288 bytes 
of main storage) ; 

an IBM 2415 Magnetic Tape Onit Model 2 or 5 
(with at least one 9-track drive) for the 
IPS, or 

an IBM 2311 Disk Storage Drive Model 11 or 
12 for the DPS; 

one of the following card reading devices: 

IBM 2501 Card Reader Model Al or A2, 
IBM 2520 Card Read-Punch Model Al, 
IBM 2560 Multi-Function Card Machine 
Model Al; 

one of the following printers: 

IBM 1403 Printer Model Nl, 2, or 7, 
IBM 2203 Printer Model Al. 



Submodel_4 

An IBM 2020 Central Processing Unit Model 
BCU (12,288 bytes of main storage); 

an IBM 2311 Disk Storage Drive Model 12; 

an IBM 2560 Multi- Function Card Machine 
Model A2; 

an IBM 2203 Printer Mo^el A2. 

Submodel 5 

An IBM 2020 Central Processing Unit Model 
C5 for the TPS (8,192 bytes of main 
storage), or BC5 for the DPS (12,288 bytes 
of main storage) ; 

an IBM 2 415 Magnetic Tape Unit Model 2 or 5 
(with at least one 9-track drive) for the 
TPS, or 

an IBM 2311 Disk Storage Drive Model 11 or 
12 for the DPS; 

one of the following card reading devices: 



one of the following printers: 

IBM 1403 Printer Model Nl , 2, or 7, 
IBM 2203 Printer Model Al . 



Maximum System Configuration 

Assembler object programs may be prodaced 
for the following maximum systen 
configuration. 



S ubm odel 2 

An IBM 2020 Central Processing Unit Model 
02 (16,384 bytes of main storage); with-qr 
without IBM Binary Synchronous Commanica-" 
tions Adapter, Feature Mo. 2074; 

two IBM 2311 Disk Storage Drives Model 11 
or 12 (both must be the sane nodel); 

an IBM 2415 Magnetic Tape Unit Model 1 
through 6; 

an IBM 2501 Card Reader Model Al or A2; 

an IBM 1442 Card Punch Model 5; 



one of the following card units: 

IBM 252 Card Read- Punch Model Al, 
IBM 2520 Card Punch Model A2 or A3, 
IBM 2560 Multi-Function Card Machine 
Model Al; 

one of the following printers: 

IBM 1403 Printer Model Nl, 2, or 7, 
IBM 2203 Printer Model Al ; 

one of the following magnetic character 
readers: 

IBM 1419 Magnetic Character Reader Model 
1 or 31, 

IBM 1259 Magnetic Character Reader Model 
1, 31, or 32; 

an IBM 2152 Printer- Keyboard. 
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Submodel H 



an IBM 2501 CarS Reader Model M or h2 



An IBM 2020 Central Processing Unit Model 
D4 (16,384 bytes of main storage); with or 
without IBM Binary Synchronous Comnnunica- 
tions adapter. Feature DJo. 207U; 

two IBM 2311 Disk Storage Drives Model 12; 

an IBM 2560 Multi-Fanction Card Machine 
Model A2; 

an IBM 22 03 Printer Model A2 . 

an IBM 2152 Printer-Keyboard. 

Subrnodel_5 

An IBM 2020 Central Processing Unit Model 
E5 (32,768 bytes of main storage); with or 
without IBM Binary Synchronous Comnunica- 
tions Adapter, Feature No. 2074; 

four IBM 2311 Disk Storage Drives Model 11 
or 12; 

an IBM 2415 Magnetic Tape Unit Model 1 
through 6; 



an IBM 1442 Card Punch Model 5; 



one of the following card units: 

IBM 2520 Card Read-Punch MDdel kit 
IBM 252 Card Punch Model A2 or A3, 
IBM 2560 Multi-Function Card Machine 
Model Al; 



one of the following printers: 

IBM 1403 Printer Model Nl , 2, or 7, 
IBM 22 03 Printer Model Al; 



one of the following magnetic character 
readers: 

IBM 1419 Magnetic Character Reader Model 
1 or 31, 

IBM 1259 Magnetic Character Reader Model 
1, 31, or 32; 

an IBM 2152 Printer-Keyboard. 
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Appendix L. Hexadecimal— Decimal Number Conversion Table 



The table in this appendix provides for direct conversion of decimal and hexadecimal num- 
bers between 0000 and 4095 (hexadecimal 000 and FFF) . 

For numbers outside the range of the table, add the following values to ttie table 
figures: 



Hexadecimal 


Decimal 


1000 


4096 


2000 


8192 


3000 


12288 


4000 


16384 


5000 


20480 


6000 


24576 


7000 


28672 


8000 


32768 



Hexadecimal Decimal 



9000 


36864 


hOOO 


40960 


BOOO 


45056 


COOO 


49152 


DOOO 


53248 


EOOO 


57344 


FOOO 


61440 



00 0000 0001 0002 0003 0004 0005 0006 0007 0008 0009 0010 0011 0012 0013 0014 0015 

01 0016 0017 0018 0019 0020 0021 0022 0023 0024 0025 0026 0027 0028 0029 0030 0031 

02 0032 0033 0034 0035 0036 0037 0038 0039 0040 0041 0042 0043 0044 0045 0046 0047 

03 0048 0049 0050 0051 0052 0053 0054 0055 0056 0057 0058 0059 0060 0061 0062 0063 

04 0064 0065 0066 0067 0068 0069 0070 0071 0072 0073 0074 0075 0076 0077 0078 0079 

05 0080 0081 0082 0083 0084 00B5 0086 0087 0088 0089 0090 0091 0092 0093 0094 0095 

06 0096 0097 0098 0099 0100 0101 0102 0103 0104 0105 0106 0107 0108 0109 0110 0111 

07 0112 0113 0114 0115 0116 0117 0118 0119 0120 0121 0122 0123 0124 0125 0126 0127 

08 0128 0129 0130 0131 0132 0133 0134 0135 0136 0137 0138 0139 0140 0141 0142 0143 

09 0144 0145 0146 0147 0148 0149 0150 0151 0152 0153 0154 0155 0156 0157 0158 0159 
OA. 0160 0161 0162 0163 0164 0165 0166 0167 0168 0169 0170 0171 0172 0173 0174 0175 
OB 0176 0177 0178 0179 0180 0181 0182 0183 0184 0185 0186 0187 0188 0189 0190 0191 

OC 0192 0193 0194 0195 0196 0197 0198 0199 0200 0201 0202 0203 0204 0205 0206 0207 

OD 0208 0209 0210 0211 0212 0213 0214 0215 0216 0217 0218 0219 0220 0221 0222 0223 

OE 0224 0225 0226 0227 0228 0229 0230 0231 0232 0233 0234 0235 0236 0237 0238 0239 

OF 0240 0241 0242 0243 0244 0245 0246 0247 0248 0249 0250 0251 0252 0253 0254 0255 

10 0256 0257 0258 0259 0260 0261 0262 0263 0264 0265 0266 0267 0268 0269 0270 0271 

11 0272 0273 0274 0275 0276 0277 0278 0279 0280 0281 0282 0283 0284 0285 0286 0287 

12 0288 0289 0290 0291 0292 0293 0294 0295 0296 0297 0298 0299 0300 0301 0302 0303 

13 0304 0305 0306 0307 0308 0309 0310 0311 0312 0313 0314 0315 0316 0317 0318 0319 

14 0320 0321 0322 0323 0324 0325 0326 0327 0328 0329 0330 0331 0332 0333 0334 0335 

15 0336 0337 0338 0339 0340 0341 0342 0343 0344 0345 0346 0347 0348 0349 0350 0351 

16 0352 0353 0354 0355 0356 0357 0358 0359 0360 0361 0362 0363 0364 0365 0366 0367 

17 0368 0369 0370 0371 0372 0373 0374 0375 0376 0377 0378 0379 0380 0381 0382 0383 

18 0384 0385 0386 0387 0388 0389 0390 0391 0392 0393 0394 0395 0396 0397 0398 0399 

19 0400 0401 0402 0403 0404 0405 0406 0407 0408 0409 0410 0411 0412 0413 0414 0415 
lA 0416 0417 0418 0419 0420 0421 0422 0423 0424 0425 0426 0427 0428 0429 0430 0431 
IB 0432 0433 0434 0435 0436 0437 0438 0439 0440 0441 0442 0443 0444 0445 0446 0447 

IC 0448 0449 0450 0451 0452 0453 0454 0455 0456 0457 0458 0459 0460 0461 0462 0463 

ID 0464 0465 0466 0467 0468 0469 0470 0471 0472 0473 0474 0475 0476 0477 0478 0479 

IE 0480 0481 0482 0483 0484 0485 0486 0487 0488 0489 0490 0491 0492 0493 0494 0495 

IF 0496 0497 0498 0499 0500 0501 0502 0503 0504 0505 0506 0507 0503 0509 0510 0511 
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ZU UDXZ U3i3 UDX4 VD±D U3XD UOJ./ 1J3±0 UDi^ UDZU UDZl UDZ/:: UDZJ U ^3 Z 4 USZD U 'D Zt) UDZ/ 

21 0528 0529 0530 0531 0532 0533 053U 0535 0536 0537 0538 0539 0540 0541 0542 0543 

22 0544 0545 0546 0547 0548 0549 0550 0551 0552 0553 0554 0555 0556 0557 0558 0559 

23 0560 0561 0562 0563 0564 0565 0566 0567 0568 0569 0570 0571 0572 0573 0574 0575 

24 0576 0577 0578 0579 0580 0581 0582 0583 0584 0585 0586 0587 0588 0589 0590 0591 

25 0592 0593 0594 0595 0596 0597 0598 0599 0600 0601 0602 0603 0604 0605 0606 0607 

26 0608 0609 0610 0611 0612 0613 0614 0615 0616 0617 0618 0619 0620 0621 0622 0623 

27 0624 0625 0626 0627 0628 0629 0630 0631 0632 0633 0634 0635 0636 0637 3638 0639 

28 0640 0641 0642 0643 0644 0645 0646 0647 0648 0649 0650 0651 0652 0653 0654 0655 

29 0656 0657 0658 0659 0660 0661 0662 0663 0664 0665 0666 0667 0668 0669 0670 0671 
2?^ 0672 0673 0674 0675 0676 0677 0678 0679 0680 0681 0682 0683 0684 0685 0686 0687 
2B 0688 0689 0690 0691 0692 0693 0694 0695 0696 0697 0698 0699 0700 0701 0702 0703 

2C 0704 0705 0706 0/707 0708 0709 0710 0711 0712 0713 0714 0715 0716 0717 0718 0719 

2D 0720 0721 0722 0723 0724 0725 0726 0727 0728 0729 0730 0731 0732 0733 3734 0735 

2E 0736 0737 0738 0739 0740 0741 0742 0743 0744 0745 0746 0747 0748 0749 0750 0751 

2F 0752 0753 0754 0755 0756 0757 0758 0759 0760 0761 0762 0763 0764 0765 0766 0767 



30 0768 0769 0770 0771 0772 0773 0774 0775 0776 0777 0778 0779 0780 0781 0782 0783 

31 0784 0785 0786 0787 0788 0789 0790 0791 0792 0793 0794 0795 0796 0797 0798 0799 

32 0800 0801 0802 0803 0804 0805 0806 0807 0808 0809 0810 0811 0812 0813 0814 0815 

33 0816 0817 0818 0819 0820 0821 0822 0323 0824 0825 0826 0827 0828 0829 3830 0831 

34 0832 0833 0834 0835 0836 0837 0838 0839 0840 0841 0842 0843 0844 0845 0846 0847 

35 0848 0849 0850 0851 0852 0853 0854 0855 0856 0857 0858 0859 0860 0861 0862 0863 

36 0864 0865 0866 0867 0868 0869 0870 0871 0872 0873 0874 0875 0876 0877 0878 0879 

37 0880 0881 0882 0883 0884 0885 0886 0887 0888 0889 0890 0891 0892 0893 0894 0895 

38 0896 0897 0898 0899 0900 0901 0902 0903 0904 0905 0906 0907 0908 0909 3910 0911 

39 0912 0913 0914 0915 0916 0917 0918 0919 0920 0921 0922 0923 0924 0925 0926 0927 
3A 0928 0929 0930 0931 0932 0933 0934 0935 0936 0937 0938 0939 0940 0941 0942 0943 
3B 0944 0945 0946 0947 0948 0949 0950 0951 0952 0953 0954 0955 0956 0957 0958 0959 

3C 0960 0961 0962 0963 0964 0965 0966 0967 0968 0969 0970 0971 0972 0973 0974 0975 

3D 0976 0977 0978 0979 0980 0981 0982 0983 0984 0985 0986 0987 0988 0989 0990 0991 

3E 0992 0993 0994 0995 0996 0997 0998 0999 1000 1001 1002 1003 1004 1005 1006 1007 

3F 1008 1009 1010 1011 1012 1013 1014 1015 1016 1017 1018 1019 1020 1021 1022 1023 



40 1024 1025 1026 1027 1028 1029 1030 1031 1032 1033 1034 1035 1036 1037 1038 1039 

41 1040 1041 1042 1043 1044 1045 1046 1047 1048 1049 1050 1051 1052 1053 1054 1055 

42 1056 1057 1058 1059 1060 1061 1062 1063 1064 1065 1066 1067 1068 1069 1070 1071 

43 1072 1073 1074 1075 1076 1077 1078 1079 1080 1081 1082 1083 1084 1085 1086 1087 

44 1088 1089 1090 1091 1092 1093 1094 1095 1096 1097 1098 1099 1100 1101 1102 1103 

45 1104 1105 1106 1107 1108 1109 1110 1111 1112 1113 1114 1115 1116 1117 1118 1119 

46 1120 1121 1122 1123 1124 1125 1126 1127 1128 1129 1130 1131 1132 1133 1134 1135 

47 1136 1137 1138 1139 1140 1141 1142 1143 1144 1145 1146 1147 1148 1149 1150 1151 

48 1152 1153 1154 1155 1156 1157 1158 1159 1160 1161 1162 1163 1164 1165 1166 1167 

49 1168 1169 1170 1171 1172 1173 1174 1175 1176 1177 1178 1179 1180 1181 1182 1183 
4A 1184 1185 1186 1187 1188 1189 1190 1191 1192 1193 1194 1195 1196 1197 1198 1199 
4B 1200 1201 1202 1203 1204 1205 1206 1207 1208 1209 1210 1211 1212 1213 1214 1215 

4C 1216 1217 1218 1219 1220 1221 1222 1223 1224 1225 1226 1227 1228 1229 1230 1231 

4D 1232 1233 1234 1235 1236 1237 1238 1239 1240 1241 1242 1243 1244 1245 1246 1247 

4E 1248 1249 1250 1251 1252 1253 1254 1255 1256 1257 1258 1259 1260 1261 1262 1263 

4F 1264 1265 1266 1267 1268 1269 1270 1271 1272 1273 1274 1275 1276 1277 1278 1279 



IDO 



50 1280 1281 1282 1283 1284 1285 1286 1287 1288 1289 1290 1291 1292 1293 1294 1295 

51 1296 1297 1298 1299 1300 1301 1302 1303 1304 1305 1306 1307 1308 1309 1310 1311 

52 1312 1313 1314 1315 1316 1317 1318 1319 1320 1321 1322 1323 1324 1325 1326 1327 

53 1328 1329 1330 1331 1332 1333 1334 1335 1336 1337 1338 1339 1340 1341 1342 1343 

54 1344 1345 1346 1347 1348 1349 1350 1351 1352 1353 1354 1355 1356 1357 1358 1359 

55 1360 1361 1362 1363 1364 1365 1366 1367 1368 1369 1370 1371 1372 1373 1374 1375 

56 1376 1377 1378 1379 1380 1381 1382 1383 1384 1385 1386 1387 1388 1389 1390 1391 

57 1392 1393 1394 1395 1396 1397 1398 1399 1400 1401 1402 1403 1404 1405 1406 1407 

58 1408 1409 1410 1411 1412 1413 1414 1415 1416 1417 1418 1419 1420 1421 1422 1423 

59 1424 1425 1426 1427 1428 1429 1430 1431 1432 1433 1434 1435 1436 1437 1438 1439 
5A 144.0 1441 1442 1443 1444 1445 1446 1447 1448 1449 1450 1451 1452 1453 1454 1455 
5B 1456 1457 1458 1459 1460 1461 1462 1463 1464 1465 1466 1467 1468 1469 1470 1471 

5C 1472 1473 1474 1475 1476 1477 1478 1479 1480 1481 1482 1483 1484 1485 1486 1487 

5D 1488 1489 1490 1491 1492 1493 1494 1495 1496 1497 1498 1499 1500 1501 1502 1503 

5E 1504 1505 1506 1507 1508 1509 1510 1511 1512 1513 1514 1515 1516 1517 1518 1519 

5F 1520 1521 1522 1523 1524 1525 1526 1527 1528 1529 1530 1531 1532 1533 1534 1535 



60 1536 1537 1538 1539 1540 1541 1542 1543 1544 1545 1546 1547 1548 1549 1550 1551 

61 1552 1553 1554 1555 1556 1557 1558 1559 1560 1561 1562 1563 1564 1565 1566 1567 

62 1568 1569 1570 1571 1572 1573 1574 1575 1576 1577 1578 1579 1580 1581 1582 1583 

63 1584 1585 1586 1587 1588 1589 1590 1591 1592 1593 1594 1595 1596 1597 1598 1599 

64 1600 1601 1602 1603 1604 1605 1606 1607 1608 1609 1610 1611 1612 1613 1614 1615 

65 1616 1617 1618 1619 1620 1621 1622 1623 1624 1625 1626 1627 1628 1629 1630 1631 

66 1632 1633 1634 1635 1636 1637 1638 1639 1640 1641 1642 1643 1644 1645 1646 1647 

67 1648 1649 1650 1651 1652 1653 1654 1655 1656 1657 1658 1659 1660 1661 1662 1663 

68 1664 1665 1666 1667 1668 1669 1670 1671 1672 1673 1674 1675 1676 1677 1678 1679 

69 1680 1681 1682 1683 1684 1685 1686 1687 1688 1689 1690 1691 1692 1693 1694 1695 
6A. 1696 1697 1698 1699 1700 1701 1702 1703 1704 1705 1706 1707 1708 1709 1710 1711 
6B 1712 1713 1714 1715 1716 1717 1718 1719 1720 1721 1722 1723 1724 1725 1726 1727 

6C 1728 1729 1730 1731 1732 1733 1734 1735 1736 1737 1738 1739 1740 1741 1742 1743 

6D 1744 1745 1746 1747 1748 1749 1750 1751 1752 1753 1754 1755 1756 1757 1758 1759 

6E 1760 1761 1762 1763 1764 1765 1766 1767 1768 1769 1770 1771 1772 1773 1774 1775 

6F 1776 1777 1778 1779 1780 1781 1782 1783 1784 1785 1786 1787 1788 1789 1790 1791 



70 1792 1>793 1794 1795 1796 1797 1798 1799 1800 1801 1802 1803 1804 1805 1806 1807 

71 1808 1809 1810 1811 1812 1813 1814 1815 1816 1817 1818 1819 1820 1821 1822 1823 

72 1824 1825 1826 1827 1828 1829 1830 1831 1832 1833 1834 1835 1836 1837 1838 1839 

73 1840 1841 1842 1843 1844 1845 1846 1847 1848 1849 1850 1851 1852 1853 1854 1855 

74 1856 1857 1858 1859 1860 1861 1862 1863 1864 1865 1866 1867 1868 1869 1870 1871 

75 1872 1873 1874 1875 1876 1877 1878 1879 1880 1881 1882 1883 1884 1885 1886 1887 

76 1888 1889 1890 1891 1892 1893 1894 1895 1896 1897 1898 1899 1900 1901 1902 1903 

77 1904 1905 1906 1907 1908 1909 1910 1911 1912 1913 1914 1915 1916 1917 1918 1919 

78 1920 1921 1922 1923 1924 1925 1926 1927 1928 1929 1930 1931 1932 1933 1934 1935 

79 1936 1937 1938 1939 1940 1941 1942 1943 1944 1945 1946 1947 1948 1949 1950 1951 
7A 1952 1953 1954 1955 1956 1957 1958 1959 1960 1961 1962 1963 1964 1965 1966 1967 
7B 1968 1969 1970 1971 1972 1973 1974 1975 1976 1977 1978 1979 1980 1981 1982 1983 

7C 1984 1985 1986 1987 1988 1989 1990 1991 1992 1993 1994 1995 1996 1997 1998 1999 

7D 2000 2001 2002 2003 2004 2005 2006 2007 2008 2009 2010 2011 2012 2013 2014 2015 

7E 2016 2017 2018 2019 2020 2021 2022 2023 2024 2025 2026 2027 2028 2029 2030 2031 

7F 2032 2033 2034 2035 2036 2037 2038 2039 2040 2041 2042 2043 2044 2045 2046 2047 
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80 2048 2049 2050 2051 2052 2053 2054 2055 2056 2057 2058 2059 2060 2061 2062 2063 

81 2064 2065 2066 2067 2068 2069 2070 2071 2072 2073 2074 2075 2076 2077 2078 2079 

82 2080 2081 2082 2083 2084 2085 2086 2087 2088 2089 2090 2091 2092 2093 2094 2095 
33 2096 2037 2038 2033 2100 2101 2102 2103 2104 2105 2106 2107 2108 2109 2110 2111 

84 2112 2113 2114 2115 2116 2117 2118 2119 2120 2121 2122 2123 2124 2125 2126 2127 

85 2128 2129 2130 2131 2132 2133 2134 2135 2136 2137 2138 2139 2140 2141 2142 2143 

86 2144 2145 2146 2147 2148 2149 2150 2151 2152 2153 2154 2155 2156 2157 2158 2159 

87 2160 2161 2162 2163 2164 2165 2166 2167 2168 2169 2170 2171 2172 2173 2174 2175 

88 2176 2177 2178 2179 2180 2181 2182 2183 2184 2185 2186 2187 2188 2189 2190 2191 

89 2192 2193 2194 2195 2196 2197 2198 2199 2200 2201 2202 2203 2204 2205 2206 2207 
8A 2208 2209 2210 2211 2212 2213 2214 2215 2216 2217 2218 2219 2220 2221 2222 2223 
8B 2224 2225 2226 2227 2228 2229 2230 2231 2232 2233 2234 2235 2236 2237 2238 2239 

8C 2240 2241 2242 2243 2244 2245 2246 2247 2248 2249 2250 2251 2252 2253 2254 2255 

8D 2256 2257 2258 2259 2260 2261 2262 2263 2264 2265 2266 2267 2268 2269 2270 2271 

8E 2272 2273 2274 2275 2276 2277 2278 2279 2280 2281 2282 2283 2284 2285 2286 2287 

8F 2288 2289 2290 2291 2292 2293 2294 2295 2296 2297 2298 2299 2300 2301 2302 2303 



90 2304 2305 2306 2307 2308 2309 2310 2311 2312 2313 2314 2315 2316 2317 2318 2319 

91 2320 2321 2322 2323 2324 2325 2326 2327 2328 2329 2330 2331 2332 2333 2334 2335 

92 2336 2337 2338 2339 2340 2341 2342 2343 2344 2345 2346 2347 2348 2349 2350 2351 

93 2352 2353 2354 2355 2356 2357 2358 2359 2360 2361 2362 2363 2364 2365 2366 2367 

94 2368 2369 2370 2371 2372 2373 2374 2375 2376 2377 2378 2379 2380 2381 2382 2383 

95 2384 2385 2386 2387 2388 2389 2390 2391 2392 2393 2394 2395 2396 2397 2398 2399 

96 2400 2401 2402 2403 2404 2405 2406 2407 2408 2409 2410 2411 2412 2413 2414 2415 

97 2416 2417 2418 2419 2420 2421 2422 2423 2424 2425 2426 2427 2428 2429 2430 2431 

98 2432 2433 2434 2435 2436 2437 2438 2439 2440 2441 2442 2443 2444 2445 2446 2447 

99 2448 2449 2450 2451 2452 2453 2454 2455 2456 2457 2458 2459 2460 2461 2462 2463 
9A 2464 2465 2466 2467 246B 2469 2470 2471 2472 2473 2474 2475 2476 2477 2478 2479 
9E 2480 2481 2482 2483 2484 2485 2486 2487 2488 2489 2490 2491 2492 2493 2494 2495 

9C 2496 2497 2498 2499 2500 2501 2502 2503 2504 2505 2506 2507 2508 2509 2510 2511 

9D 2512 2513 2514 2515 2516 2517 2518 2519 2520 2521 2522 2523 2524 2525 2526 2527 

9E 2528 2529 2530 2531 2532 2533 2534 2535 2536 2537 2538 2539 2540 2541 2542 2543 

9F 2544 2545 2546 2547 2548 2549 2550 2551 2552 2553 2554 2555 2556 2557 2558 2559 



AO 2560 2561 2562 2563 2564 2565 2566 2567 2568 2569 2570 2571 2572 2573 2574 2575 

Al 2576 2577 2578 2579 2580 2581 2582 2583 2584 2585 2586 2587 2588 2589 2590 2591 

A2 2592 2593 2594 2595 2596 2597 2598 2599 2600 2601 2602 2603 2604 2605 2606 2607 

A3 2608 2609 2610 2611 2612 2613 2614 2615 2616 2617 2618 2619 2620 2621 2622 2623 

A4 2624 2625 2626 2627 2628 2629 2630 2631 2632 2633 2634 2635 2636 2637 2638 2639 

A5 2640 2641 2642 2643 2644 2645 2646 2647 2648 2649 2650 2651 2652 2653 2654 2655 

A6 2656 2657 2658 2659 2660 2661 2662 2663 2664 2665 2666 2667 2668 2669 2670 2671 

A7 2672 2673 2674 2675 2676 2677 2678 2679 2680 2681 2682 2683 2684 2685 2686 2687 

A8 2688 2689 2690 2691 2692 2693 2694 2695 2696 2697 2698 2699 2700 2701 2702 2703 

A.9 2704 2705 2706 2707 2708 2709 2710 2711 2712 2713 2714 2715 2716 2717 2718 2719 

AA 2720 2721 2722 2723 2724 2725 2726 2727 2728 2729 2730 2731 2732 2733 2734 2735 

AB 2736 2737 2738 2739 2740 2741 2742 2743 2744 2745 2746 2747 2748 2749 2750 2751 

AC 2752 2753 2754 2755 2756 2757 2758 2759 2760 2761 2762 2763 2764 2765 2766 2767 

AD 2768 2769 2770 2771 2772 2773 2774 2775 2776 2777 2778 2779 2780 2781 2782 2783 

AE 2784 2785 2786 2787 2788 2789 2790 2791 2792 2793 2794 2795 2796 2797 2798 2799 

AF 2800 2801 2802 2803 2804 2805 2806 2807 2808 2809 2810 2811 2B12 2813 2814 2815 



IbB 



BO 2816 2817 2818 2819 2820 2821 2822 2823 2824 2825 2826 2827 2828 2829 2830 2831 

Bl 2832 2833 2834 2835 2836 2837 2838 2839 2840 2841 2842 2843 2844 2845 2846 2847 

B2 2848 2849 2850 2851 2852 2853 2854 2855 2856 2857 2858 2859 2860 2861 2862 2863 

B3 2864 2865 2866 2867 2868 2869 2870 2871 2872 2873 2874 2875 2876 2877 2878 2879 

B4 2880 2881 2882 2883 2884 2885 2886 2887 2888 2889 2890 2891 2892 2893 2894 2895 

B5 2896 2897 2898 2899 2900 2901 2902 2903 2904 2905 2906 2907 2908 2909 2910 2911 

B6 2912 2913 2914 2915 2916 2917 2918 2919 2920 2921 2922 2923 2924 2925 2926 2927 

B7 2928 2929 2930 2931 2932 2933 2934 2935 2936 2937 2938 2939 2940 2941 2942 2943 

B8 2944 2945 2946 2947 2948 2949 2950 2951 2952 2953 2954 2955 2956 2957 2958 2959 

B9 2960 2961 2962 2963 2964 2965 2966 2967 2968 2969 2970 2971 2972 2973 2974 2975 

BA 2976 2977 2978 2979 2980 2981 2982 2983 2984 2985 2986 2987 2988 2989 2990 2991 

BB 2992 2993 2994 2995 2996 2997 2998 2999 3000 3001 3002 3003 3004 3005 3006 3007 

BC 3008 3009 3010 3011 3012 3013 3014 3015 3016 3017 3018 3019 3020 3021 3022 3023 

BD 302ii 3025 3026 3027 3028 3029 3030 3031 3032 3033 3034 3035 3036 3037 3038 3039 

BE 3040 3041 3042 3043 3044 3045 3046 3047 3048 3049 3050 3051 3052 3053 3054 3055 

BF 3056 3057 3058 3059 3060 3061 3062 3063 3064 3065 3066 3067 3068 3069 3070 3071 



CO 3072 3073 3074 3075 3076 3077 3078 3079 3080 3081 3082 3083 3084 3085 3086 3087 

CI 3088 3089 3090 3091 3092 3093 3094 3095 3096 3097 3098 3099 3100 3101 3102 3103 

C2 3104 3105 3106 3107 3108 3109 3110 3111 3112 3113 3114 3115 3116 3117 3118 3119 

C3 3120 3121 3122 3123 3124 3125 3126 3127 3128 3129 3130 3131 3132 3133 3134 3135 

C4 3136 3137 3138 3139 3140 3141 3142 3143 3144 3145 3146 3147 3148 3149 3150 3151 

C5 3152 3153 3154 3155 3156 3157 3158 3159 3160 3161 3162 3163 3164 3165 3166 3167 

C6 3168 3169 3170 3171 3172 3173 3174 3175 3176 3177 3178 3179 3180 3181 3182 3183 

C7 3184 3185 3186 3187 3188 3189 3190 3191 3192 3193 3194 3195 3196 3197 3198 3199 

C8 3200 3201 3202 3203 3204 3205 3206 3207 3208 3209 3210 3211 3212 3213 3214 3215 

C9 3216 3217 3218 3219 3220 3221 3222 3223 3224 3225 3226 3227 3228 3229 3230 3231 

CA 3232 3233 3234 3235 3236 3237 3238 3239 3240 3241 3242 3243 3244 3245 3246 3247 

CB 3248 3249 3250 3251 3252 3253 3254 3255 3256 3257 3258 3259 3260 3261 3262 3263 

CC 3264 3265 3266 3267 3268 3269 3270 3271 3272 3273 3274 3275 3276 3277 3278 3279 

CD 3280 3281 3282 3283 3284 3285 3286 3287 3288 3289 3290 3291 3292 3293 3294 3295 

CE 3296 3297 3298 3299 3300 3301 3302 3303 3304 3305 3306 3307 3308 3309 3310 3311 

CF 3312 3313 3314 3315 3316 3317 3318 3319 3320 3321 3322 3323 3324 3325 3326 3327 



DO 3328 3329 3330 3331 3332 3333 3334 3335 3336 3337 3338 3339 3340 3341 3342 3343 

Dl 3344 3345 3346 3347 3348 3349 3350 3351 3352 3353 3354 3355 3356 3357 3358 3359 

D2 3360 3361 3362 3363 3364 3365 3366 3367 3368 3369 3370 3371 3372 3373 3374 3375 

D3 3376 3377 3378 3379 3380 3381 3382 3383 3384 3385 3386 3387 3388 3389 3390 3391 

D4 3392 3393 3394 3395 3396 3397 3398 3399 3400 3401 3402 3403 3404 3405 3406 3407 

D5 3408 3409 3410 3411 3412 3413 3414 3415 3416 3417 3418 3419 3420 3421 3422 3423 

D6 3424 3425 3426 3427 3428 3429 3430 3431 3432 3433 3434 3435 3436 3437 3438 3439 

D7 3440 3441 3442 3443 3444 3445 3446 3447 3448 3449 3450 3451 3452 3453 3454 3455 

08 3456 3457 3458 3459 3460 3461 3462 3463 3464 3465 3466 3467 3468 3469 3470 3471 

D9 3472 3473 3474 3475 3476 3477 3478 3479 3480 3481 3482 3483 3484 3485 3486 3487 

DA 3488 3489 3490 3491 3492 3493 3494 3495 3496 3497 3498 3499 3500 3501 3502 3503 

DB 3504 3505 3506 3507 3508 3509 3510 3511 3512 3513 3514 3515 3516 3517 3518 3519 

DC 3520 3521 3522 3523 3524 3525 3526 3527 3528 3529 3530 3531 3532 3533 3534 3535 

DD 3536 3537 3538 3539 3540 3541 3542 3543 3544 3545 3546 3547 3548 3549 3550 3551 

DE 3552 3553 3554 3555 3556 3557 3558 3559 3560 3561 3562 3563 3564 3565 3566 3567 

DF 3568 3569 3570 3571 3572 3573 3574 3575 3576 3577 3578 3579 3580 3581 3582 3583 
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EO 3584 3585 3586 3587 3588 3589 3590 3591 3592 3593 3594 3595 3596 3597 3598 3599 

El 3600 3601 3602 3603 3604 3605 3606 3607 3608 3609 3610 3611 3612 3613 3614 3615 

E2 3616 3617 3618 3619 3620 3621 3622 3623 3624 3625 3626 3627 3628 3629 3630 3631 

E3 3632 3633 3634 3635 3636 3637 3638 3639 3640 3641 3642 3643 3644 3645 3646 3647 

E4 3648 3649 3650 3651 3652 3653 3654 3655 3656 3657 3658 3659 3660 3661 3662 3663 

E5 3664 3665 3666 3667 3668 3669 3670 3671 3672 3673 3674 3675 3676 3677 3678 3679 

E6 3680 3681 3682 3683 3684 3685 3686 3687 3688 3689 3690 3691 3592 3693 3694 3695 

E7 3696 3697 3698 3699 3700 3701 3702 3703 3704 3705 3706 3707 3708 3709 3710 3711 

E8 3712 3713 3714 3715 3716 3717 3718 3719 3720 3721 3722 3723 3724 3725 3726 3727 

E9 3728 3729 3730 3731 3732 3733 3734 3735 3736 3737 3738 3739 3740 3741 3742 3743 

EA. 3744 3745 3746 3747 3748 3749 3750 3751 3752 3753 3754 3755 3756 3757 3756 3759 

EB 3760 3761 3762 3763 3764 3765 3766 3767 3768 3769 3770 3771 3772 3773 3774 3775 

EC 3776 3777 3778 3779 3780 3781 3782 3783 3784 3785 3786 3787 3788 3789 3790 3791 

ED 3792 3793 3794 3795 3796 3797 3798 3799 3800 3801 3802 3803 3804 3805 3806 3807 

EE 3808 3809 3810 3811 3812 3813 3814 3815 3816 3817 3818 3819 3820 3821 3822 3823 

EF 3824 3825 3826 3827 2828 3829 3830 3831 3832 3833 3834 3835 3836 3837 3838 3839 



FO 3840 3841 3842 3843 3844 3845 3846 3847 3848 3849 3850 3851 3852 3853 3854 3855 

Fl 3856 3857 3858 3859 3860 3861 3862 3863 3864 3865 3866 3867 3868 3869 3870 3871 

F2 3872 3873 3874 3875 3876 3877 3878 3879 3880 3881 3882 3883 3884 3885 3886 3887 

F3 3888 3889 3890 3891 3892 3893 3894 3895 3896 3897 3898 3899 3900 3901 3902 3903 

F4 3904 3905 3906 3907 3908 3909 3910 3911 3912 3913 3914 3915 3916 3917 3918 3919 

F5 3920 3921 3922 3923 3924 3925 3926 3927 3928 3929 3930 3931 3932 3933 3934 3935 

F6 3936 3937 3938 3939 3940 3941 3942 3943 3944 3945 3946 3947 3948 3949 3950 3951 

F7 3952 3953 3954 3955 3956 3957 3958 3959 3960 3961 3962 3963 3964 3965 3966 3967 

F8 3968 3969 3970 3971 3972 3973 3974 3975 3976 3977 3978 3979 3980 3981 3982 3983 

F9 3984 3985 3986 3987 3988 3989 3990 3991 3992 3993 3994 3995 3996 3997 3998 3999 

Fh 4000 4001 4002 4003 4004 4005 4006 4007 4008 4009 4010 4011 4012 4013 4014 4015 

FB 4016 4017 4018 4019 4020 4021 4022 4023 4024 4025 4026 4027 4028 4029 4030 4031 

FC 4032 4033 4034 4035 4036 4037 4038 4039 4040 4041 4042 4043 4044 4045 4046 4047 

FD 4048 4049 4050 4051 4052 4053 4054 4055 4056 4057 4058 4059 4060 4061 4062 4063 

FE 4064 4065 4066 4067 4068 4069 4070 4071 4072 4073 4074 4075 4076 4077 4078 4079 

FF 4080 4081 4082 4083 4084 4085 4086 4087 4088 4089 4090 4091 4092 4093 4094 4095 
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Appendix M. Sample Programs 



DPS Assembler Language Program 

The purpose of this sample program is to 
give a short demonstration of the applica- 
tion of the Assembler language. 



2:§scri£tion_of_the_Pro2ram 

The program reads data cards from the 2501 
Card Reader, Only the first 13 columns of 
each card are read. Input-card format is 
as follows : 



r T 

Column I Contents 



2-4 



5-7 



- 10 



h,B or C (card- type indication) 



a 3-digit,, positive decimal 
number (Fieldl) 



a 3-digit, positive decimal 
number (Field2) 



a 3-digit, positive decimal 
number (Field3) 



11 - 13 1 a 3-digit» positive decimal 
number (Field4) 



The program first checks the input cards 
for correct format. If any one of the 
columns does not contain a decimal digit, 
the program halts and displays the number 
and digit in error by executing an HPR 
instruction, (Refer to the halt routines 
in part 11 of Figure 19). Then the next 
card is read in. 



If the data is correct,, the desired cal- 
culations are carried out. The calcula- 
tions vary depending on the type of card as 
designated in column 1: 

r T T 

I Type I Arithmetic Operation | 

j. ^ ^ 

I A I Fieldl + Field2 - Field3 ♦ FieldU | 
|. ^ ^ 

I B I Fieldl - Field2 * Field3 + FieldU | 
y. + ^ 

1 C I Fieldl * Field2 + Field3 - Field4 | 

L L J 

As each calculation is performed, a line 
of output is printed. The format of the 
printed line is: 



1 11 - 


19 


1 21 




1 26 - 


45 


1 49 




1 52 - 


60 



r T 1 

I Print Positions I Contents of Print Field | 



I CARD T^PE 
I Type (A,B or 2) 
I Arithmetic Operation 
I Equal Sign 
j Result 
.i— 



Program Organization 

The program consists of two separate con- 
trol sections, PARTI and PART2. The first 
section,, PARTI (see parts 2 and 3 of Figure 
19), contains all the input/output (IOCS) 
routines. These routines consist of the 
instructions required to read the data 
cards (READ) and to print the results 
(PRINT). The IOCS routines will not be 
discussed in detail here. For further 
information, refer to the SRL publication 
IBM System/360 ?dodel 20, Disk Programming 
§Z^t;§21i-_IS21it;£2litput_Control_System, Form 
3C24-9007. 

The second section, PART2 (see part 6 of 
Figure 19), contains a number of small rou- 
tines that test the contents of the cards 
and perform the desired calculations. 
These routines, which make up the main pro- 
gram, are quite similar to each other. 
Compare, for example, the routines begin- 
ning with the names TSTRICOL, TSTMICOL, 
TSTLECOL and TRICOL, TMICOL, TLECOL (parts 
7 and 8 of Figure 19). Although the source 
code is different for each of these rou- 
tines', the Assembler produces the same 
object code. This is demonstrated even 
more clearly by the statements 0202, 0234 
and 0264, which read as follows: 



0202 
0234 
0264 



01 59(PRI»TRG),X'F0' 

01 DPRINTAR+59,B' 11110000' 

01 RESZ-L'RESZ-1,C'0' 



Here, both operands are expressed dif- 
ferently in each of the three source 
instructions. However, their object code 
is exactly the same. 

Linkin2_PARTl_and_PARr2 

The two sections of the progran, PARTI and 
PART2, are assembled separately. They are 
brought together to form a single program 
by means of the Linkage Editor Program. 
Hence, the symbols which are common to both 
sections must be defined by ENTRY instruc- 
tions in the section in which they appear 
as a name, and by EXTRN instructions in the 
section in which they are referred to. 
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If we take the name OPENF as an example, 
we find that it is defined in the first 
Assembly as 

ENTRY OPENF 

The address,, as shown in the Exteraal 
Symbol Dictionary, is hexadecimal 017C. In 
the second ?^ssemblyi, this name is defined 
as 

EXTRN OPENF 

In this assembly, the Assembler uses the 
value of hexadecimal 0000 for OPENF = The 
Linkage Editor then inserts the actual 
value. This is the address from the ESD of 
the first assembly, plus the relocation 
factor, which can be found in the Linkage 
Editor listing output in column REL-FR 
(part 17 of Figure 19). Thus, the actual 
address inserted by the Linkage Editor is 



X'OITC 

X*ODBE' 

OPENF - X'0F3A' 



ESD 

relocation factor 



(REL-FR) 



In addition to the ENTRY and EXIRN 
instructions, the Link register (LINKRG) , 
which is used for branching between the 
main program (PART2) and the IOCS routines 
(PARTI) » must be defined in both sections. 
The same register must be specified in each 
section (in our case, register 13). 

Control_Statetnents 

The Job Control cards needed for the Lin- 
kage Editor run are produced before PARTI 
of the program. This is done by means of 
REPRO statements at assembly time. These 
cards also include the PHASE card. The 
letter S following the phase name causes 
the program to be loaded immediately behind 
the Monitor at the time of program execu- 
tion. (Refer to the publication IBM 
SYStem/360 Model 20, Disk Programnilng Sys- 

£^S!i_£°St£2l:_^"^_§®£]^i^§_Ei22I§S]s# Form 
GC24-9006. 

Since the four cards that are produced 
by the Assembler come before the START card 
in the source deck, they are also ia front 
of the ESD (External Symbol Dictionary) 
cards in the object deck produced by the 
Assembler. 

Addressing in the Main Program 

In the main program (PART2) two base regis- 
ters are used - BASERGl and BASERG2 - in 
order to show you the use of the USING and 
DROP instructions. 

From BEGIN (statement 0052) to TYPEA 
(statement 0090) the Assembler uses regis- 
ter 10 (BASERGl) as a base register and 
assumes the base address BASEAll. In the 
routine TYPEA. reaister 10 is still used as 



the base register, but its contents are 
changed to the base address BASEA12. 

For routine TYPEB, the Assembler has 
both base regxsters at its dxsoDsal, but it 
uses only one of them, BASERG2, because 
this provides the snnaller displacement. 

Routine CEXPRA uses BASERGl again 
because BASERG2 has been nade unavailable 
by means of a DROP instruction. 



Wh 



on lie: 1 ncr 



•l-hci noOT) -1 n o -I- V n !-• 4- ■! r\r 



care that the register to be dropped is no 
longer needed in that routine. Otherwise, 
an addressability error will occur. If the 
register that has been dropped is required 
again at a later point in the program, the 
Assembler must be informed of this by means 
of a further USING instruction. 

In routine CEXPRB exactly this has been 
done; BASERG2 has been made available 
again. Since this base register provides a 
smaller displacement, it is used by the 
Assembler until the end of the program, 
with the exception of the instructions for 
branching back to the GETCARD routine 
(statements 308 - 310). 

GETCARD was defined before the base 
addresses BASEA12 and BASEA21. Therefore 
its address is lower than that contained in 
the two base registers at this point. 
Hence, BASERGl must be loaded with the 
original base address BASEAll before a 
branch to GETCARD takes place. 

Loading and re-loading of the base 
registers takes place when the program is 
executed. Both base registers are loaded 
initially in the routine headed LOAD BASE 
REGISTERS with the addresses BASEAll and 
BASEA21, respectively. The contents of 
BASER32 are not changed during the whole of 
the program. On the other hand, BASERGl is 
loaded with the address BASEA12 in the 
TYPEA routine and re-loaded with its 
original value, BASEAll, in the BGETCARD 
routine. 

Addressing the Inp ut and Output Areas 

To address the card and print areas, the 
registers CARDRG and PRINTRG (general 
registers 12 and 15),, respectively, are 
used. 

The two areas can be utilized either by 
explicit addressing (specifying base and 
displacement) , as in the routine CEXPRA, or 
^V iSlEiiSit addressing, as in the routines 
CEXPRB and CEXPRC. In the latter case the 
areas are defined in a Dummy Control Sec- 
tion. The Assembler is informed via a 
USING instruction that register CARDRG is 
used to address the first Dummy Control 
Section (DCSl) and that register PRINTRS is 
used to address the second Dumm.y Control 
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Section (DCS2), This is done at the begin- 
ning of the main program (statements 0056 
and 0057) . Of course, CA.RDRG and PRINTRG 
must be loaded when the program is 
executed. 

To make the program listings more readable, 
related instructions have been grouped into 
routines and subroutines and spaced out 
accordingly by using SPA.CE, EJECT, and 
TITLE cards. Compare the listing of the 
source deck (Figure 20) with the assembly 
listing (Figure 19) to see the effect of 
the respective source statement. 

For example, statements SPl 058 and SP2 
087 in Figure 20 are not listed in Figure 
19 but the appropriate spacing was per- 
formed by the Assembler during execution. 
Likewise, the TITLE statement of source 
statement SP2 045 in Figure 20 is not 
listed in the assembly listing but the 
effect of the execution of this formatting 
statement is obvious. 

Look at Figure 19 part 5; the last sta- 
tement listed is SP2 044. The first state- 
ment listed in Figure 19 part 6 is SP2 046. 
The TITLE statement caused a skip to the 
next page with the new heading printed on 
top of that page. An EJECT statement 
causes a skip to the next page without 
changing the heading. Compare statements 
SP2 075 - SP2 077 in Figure 20 with the 
same statements in Figure 19. 

Cross_Reference List 

The Cross Reference List contains useful 
information such as: the lengths of 
storage areas; the address of a particular 
symbol; the numbers of those statements 
which refer to the symbol in question. The 
information contained in the table is 
listed under headings as follows: 



SYMBOL: 



LEN: 



VALUE: 



DEF: 



CROSS 

REFERENCE; 



Under this heading, the 
Assembler lists, in alpha- 
betical order,, all symbols in 
the program. 

In this column you can find the 
appropriate length attribute of 
the symbol. 

This column contains the hexa- 
decimal value of each symbol. 

This column shows the number of 
the statement that defines the 
particular symbol. You can 
find this number under the 
heading STMT of the instruction 
listing 

Under this heading, the 



Assembler gives a list of the 
statement numbers, in ifi?hich the 
symbol in question is referred 
to. You can find these numbers 
under the heading STMT of the 
instruction listing. 

Below are three examples to explain the 
use of the Cross Reference List. 

Ex ample 1. Let us assume you wish to find 
out from which points in the program a 
branch is made to the entry point BGETCARD 
(statement 0308). To find this symbol, 
look down the column SYMBOL in the Cross 
Reference List until you find BGETCARD. 
The column DEF confirms that the symbol was 
defined in statement 0308. Now look under 
CROSS REFERENCE. There you find that the 
symbol was used in statements 0290 and 
0295. 

Column LEN in the Cross Reference List 
contains the number 4 for the symbol 
BGETCARD. The Assembler has assigned BGET- 
CARD a length attribute of 4 because the 
machine instruction at statement 0308 takes 
up four bytes of main storage. 

The value X'02E6' for BGETCARD under 
VALUE is the relative storage address of 
the first byte of the machine instruction 
at statement 0308. 

Exampl e 2. Suppose you want to know which 
register is meant by BASERG2 (refer to 
statement 0206) and where it is loaded. 

You look for BASERG2 in the column 
SYMBOL of the Cross Reference List and find 
in the column VALUE hexadecimal OOOB, This 
means that the symbol BASERG2 stands for 
register 11. 

The symbol is defined in statement 0026, 
as you can find in column DEF. Under 
CROSS-REFERENCE you can find that the sym- 
bol is used in statements 0055, 0120, 0174 
and 0206. 

If you look up these statements you will 
find that register 11 is loaded by the 
machine instruction at statement 0055. 

Example 3. Statement 0263 uses symbol RESZ 
as its first operand and RESP as its second 
operand. Both operands use an implied 
length. What lengths are inserted by the 
Assembler? 

Now look for RESZ under SYMBOL in the 
Cross Reference List, rhe column LEN gives 
a length attribute of 9 since the area 
defined by RESZ is nine bytes long. '/Je can 
check this by looking at the statement in 
which RESZ is defined, i.e., statement 
0375. 

Similarly, we find that the symbol RESP 
has a length attribute of 5. 
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// LOG 

// JOB ftSSEMB 

// DATE 70020 

// ASSGN SYSIPT,X"100',RI4 

// ASSGN SYSOPTsX' 300' ,P2 



2501 
1 UIJ2 



ff fiOOUll OIOUUU, A OUO " , UH 

// VOL SYSOOO,WORK1 
// DLAB 'SYSTEM/aeO MOD 20 DPS 
0001,67150,67150 
// XTENr 1.000.0153000-0199009.- • 202020' .-SYSOOC 
// EXEC 
MOD 20 DPS ASSEMBLER VERSION 03 MOD-LEVEL 02 



1202020', P 



EXTERNAL SYMBOL DICTIONARY 



SYMBOL 


TYPE 


ID 


ADDR 


PARTI 


SD 


01 


0000 


3FENF 


LD 




0i7C 


READ 


LD 




0186 


PRINT 


LD 




018E 


CLOSEF 


LD 




0196 


CARDAR 


LD 




OlAF 


PRINTAR 


LD 




OIBC 


EOCF 


ER 


02 





LENGTH LD ID 



01F8 



01 
01 
01 
01 



Figure 19. DPS Sample Program, Part 1 of 17 
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SLE 
LOCATN OBJECT CODE ADDl ADD2 STMT 



SOURCE srarEMENr 

AOPrN NOSYM 



01/20/70 PA3E 001 
3P3 AS3EMB 03/02 



0001 AOPIN NOSYM SPl 001 

0002 ♦ SPl 002 

0003 ♦♦♦♦♦♦*♦♦♦*♦♦♦♦*♦♦♦♦♦♦*♦•♦♦♦♦♦**♦♦♦♦♦♦♦**♦♦♦♦♦♦*♦♦♦♦♦♦♦♦♦♦*♦♦♦♦♦♦♦♦♦♦♦♦ SPl 003 
OOOtt ♦ PKEPARE CONTROL CARDS FOR LINKAGE EDITOR RUN SPl OOU 
0005 *********************************************************************** SPl 005 



0006 * 

0007 REPRO 
// JOB LNKEDT 

0008 REPRO 

// ASSGN SYSOPT.UA 

0009 REPRO 
// EXEC 

0010 REPRO 
PHASE SAMPLE, 8,0 



OUTPUT ONLY IN RELOCATABLE AREA 



START JUST BEHIND THE MOWIIOR 



SPl 006 
SPl 007 
SPl 008 
SPl 009 
SPl 010 
SPl Oil 
SPl 012 
SPl 013 
SPl Oil* 



SLE ASSEMBLER SAMPLE, PART 1, IOCS 
LOCATN OBJECT CODE ADDl ADD2 STMT SOURCE SrAIEMENT 



01/20/70 PA3E 002 
DPS ASSEMB 03/02 



0000 



0012 *********************************************************************** SPl 016 

0013 PARTI STAR! FIRST PART OF THE SAMPLE SPl 017 

oom **♦♦♦♦♦♦♦♦♦♦♦♦*♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦*♦♦♦♦♦♦♦♦♦♦♦♦♦*♦****♦*♦♦♦♦♦*♦♦*♦♦♦♦♦ SPl 018 



017C 
0186 
018E 
0196 
OlAF 
OIBC 



0016 *********************************************************************** SPl 020 

0017 ♦ DEFINE ENTRIES AND EXTERNAL SYMBOLS SPl 021 

0018 *♦♦*♦♦♦♦♦♦*♦♦*♦♦♦*♦♦♦*♦*♦*♦♦»♦♦♦♦♦♦*♦**♦♦♦*♦♦*♦**♦*♦*♦♦♦*»♦♦**♦♦♦♦*♦*♦* SPl 022 

0019 ♦ SPl 023 

0020 ENTRY OPENF OPEN ROUTINE SPl 024 

0021 ENTRY READ READ ROUTINE SPl 025 

0022 ENTRY PRINT PRINT ROUTINE SPl 026 

0023 ENTRY CLOSEF CLOSE ROUTINE SPl 027 
002U ENTRY CARDAR AREA iJHERE CARD IS SIORtO SPl 028 

0025 ENTRY PRINTAR PRINT AREA SPl 029 

0026 ♦ SPl 030 

0027 EXTRN EOCF END OF CARD FILE SPl 031 



OOOD 



0029 
0030 
0031 
0032 
0033 



^.^^^i^^^^^^^^ft^irt********************** ************** ******************* 

* SYMBOLIC REGISrER DEFIMIIIONS 

^^.^it^t ********************************************************** ******* 



LINKRG E2U 13 



LINK-REGISTER 



SPl 033 
SPl 03« 
SPl 035 
SPl 036 
SPl 037 



0035 
0036 
0037 
0038 
0039 
0040 
0041 
0042 
0092 
0093 
0132 
0133 



*********************************************************************** 

* DjiFINE THE FILES 

lL^^**^^^^,^tiH,*^^i***t^**^^1,t^ti^l*^.^**t***************** ******** *********** 



PRINT NOGEN 



DON'T PRINr GENERATED STATEMENrS 



READER DTFSR TYPEFLE=INPUT, BLKSIZE=13, DEVICE=READ01, EOFADDR=E0CF, 

I0AREA1=INAREA, OVERLAP=NO, rtORKA=YES 
* 
PRINTER DTFSR rYPEFLE=OUrPUr, WORKA=YES, DEVICF=PRINTER, BLKSIZE=60 

DTFED4 



SPl 039 
SPl 040 
SPl 041 
SPl 042 
SPl 043 
SPl 044 
:SP1 045 
SPl 046 
SPl 047 
SPl 048 
SPl 049 
SPl 050 



0184 07FD 



0281 *********************************************************************** SPl 052 

0282 ♦ OPEN THE FILES SPl 053 

0283 *********************************************************************** SPl 054 

0284 * SPl 055 

0285 OPENF OPEN READER, PRINTER OPEN READER AND PRINTER SPl 056 
0291 BR LINKRG RETURN SPl 057 048 



018C 07FD 



0293 ♦♦♦♦♦*♦♦♦♦♦**♦*♦♦**♦♦♦♦♦*♦*♦♦♦♦*♦♦*♦**♦♦♦♦*♦***♦♦+*♦**♦♦♦♦♦♦**♦*♦♦*♦♦♦♦ SPl 059 

0294 ♦ READ A CARD SPl 060 

0295 ♦♦♦♦♦♦♦♦*♦♦♦♦*♦♦*♦+♦♦♦♦♦♦♦♦♦♦♦*♦♦♦♦♦♦♦♦♦*♦♦♦♦♦♦♦♦♦*♦♦*♦♦♦♦♦**♦♦♦♦♦♦♦*♦♦ SPl 061 

0296 ♦ SPl 062 

0297 READ GET READER, CARDAR READ A CARD AND >40VE IT TO CARDAR SPl 06 3 
0302 BR LINKRG RETURN SPl 064 049 



Figure 19. DPS Sample Program, Part 2 of 17 
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SLE ASSEMBLER SAMPLE, PART 1, I3CS 
LOCATS OBJECT CODE ADDl ADD2 STMT SOURCE srATEMENP 



01/20/70 PA3E 003 
DPS AS3EMB 03/02 



01?^ 07FD 



0304 wwmm*mm9*****9*m*****t**************»************************t****t**** SPl 066 

0305 ♦ PRINT A LINE SPl 067 

0306 *********************************************************************** SPl 068 

0307 ♦ SPl 069 

0308 PRINT PUT PRINTER, PRINTAR PRINT A LINE SPl 070 
0313 OK LImKk5 RErUKi'4 SPl 071 050 



019E 47F0 00C2 



00C2 



0315 *********************************************************************** SPl 073 

0316 ♦ CLOSE THE FILES AND GO BACK TO MONITOR (END OF JOB) SPl 07(| 

0317 *********************************************************************** SPl 075 

0318 * SPl 076 

0319 CLOSEF CLOSE READER, PRINTER CLOSE READER AND PRI^ITER SPl 077 

0325 * SPl 078 

0326 PRINT GEN PRINT GENERATED STATEMENTS SPl 079 

0327 ♦ SPl 080 

0328 EOJ , GIVE CONTROL BACK TO MONITOR SPl 081 
0329+ BC 15,19tt{0,0) EOJ 012 053 



01A2 
OlAF 
OIBC 



0331 *********************************************************************** SPl 083 

0332 ♦ AREAS SPl 08« 

0333 *9*************************m******************************************* SPl 085 
033U ♦ 3F1 086 

0335 INAREA DS 13C INPUT AREA FOR IOCS SPl 087 

0336 CARDAR DS CL13 CARD IS- STORED HERE AFTER GtT SPl 088 

0337 PRINTAR DS CL60 PRINT AREA SPl 089 



0339 



SPl 091 055 



NO STATEMENT FLAGGED 



Figure 19. DPS Sample Projram, Part 3 of 17 
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RELocMioN oicriomRy 



POS.ID REL.ID FLGS ADOR 



01 


01 


04 


0000 


01 


01 


04 


0002 


01 


02 


04 


0004 


01 


01 


04 


0008 


01 


01 


04 


0010 


01 


01 


04 


0034 


01 


01 


04 


0046 


01 


01 


04 


0068 


01 


01 


04 


OOAC 


01 


01 


04 


OOCA 


01 


01 


04 


OOCE 


01 


01 


04 


00D2 


01 


01 


04 


00D6 


01 


01 


04 


00E2 


01 


01 


04 


0136 


01 


01 


04 


015A 


01 


01 


04 


016C 


01 


01 


04 


0170 


01 


01 


04 


017E 


01 


01 


04 


01B2 


01 


01 


04 


017E 


01 


01 


04 


0182 


01 


01 


04 


0188 


01 


01 


04 


018A 


01 


01 


04 


0190 


01 


01 


04 


0192 


01 


01 


04 


0198 


01 


01 


04 


01 9C 



END OF JOB 
// JOB ASSEMB 
// EXEC 
HOO 20 DPS ASSEMBLER VERSION 



SECOND ASSEMBLY 



03 MOD- LEVEL 02 



EXTERNAL SYMBOL DICriONARY 



SYMBOL TYPE ID ADDR LENGTH LD ID 



PART 2 


SD 


01 


OPENF 


ER 


02 


READ 


ER 


03 


PRINT 


ER 


04 


CLOSEF 


ER 


05 


CAROAR 


ER 


06 


PRINTAR 


ER 


07 


EOCF 


U) 





0000 0318 



02EE 



01 



Figure 19. DPS Sample Program,, Part H of 17 
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01/20/70 P^:^E ooi 



0001 



AOPrW CROSSREF, ENTRY 



SP2 001 



SLE ASSEMBLER SAMPLE, PART 2, DEFINITIONS 
LOCATN OBJECT CODE ADD! ADD2 STMT SOURCE STATEMENT 



01/20/70 PAGE 002 
DPS ASSEMB 03/02 



0000 



0003 *********************************************************************** SP2 003 
OOOH PART2 START SECOND PARI OF SAMPLE SP2 004 

0005 *********************************************************************** SP2 005 



02EE 



0007 *********************************************************************** SP2 007 

0008 ♦ DEFINE ENTRIES AND EXTERNAL SYMBOLS SP2 008 

0009 *********************************************************************** SP2 009 

0010 * SP2 010 

0011 EXIRN OPENF OPEN ROUTINE SP2 Oil 

0012 EXTRN READ READ ROUTINE SP2 012 

0013 EXTRN PRINT PRINT ROUTINE SP2 013 
001 a EXTRN CLOSEF CLOSE ROUTINE SP2 01<t 

0015 EXTRN CARDAR AREA WHERE CARD IS STORED SP2 015 

0016 EXTRN PRINTAR PRINT AREA SP2 016 

0017 ♦ SP2 017 

0018 ENTRY EOCF END OF CARD FILE SP2 018 



0008 
OOOA 
OOOB 
GOOD 
OOOE 
OOOC 
GOOF 



G008 
OOOB 

OOCl 
G0C2 
0OC3 
GOFO 
00F9 
0040 



0023 


* 






0024 


REG8 


E2U 


8 


0025 


BASERGl 


EQU 


10 


0026 


BASERG2 


EQU 


11 


0027 


LINKRG 


EQU 


13 


0028 


BRANCHRG 


EQU 


in 


0029 


CARDRG 


EQU 


12 


0030 


PRINTRG 


EQU 


15 



0020 *********************************************************************** SP2 020 

0021 • SYMBOLIC REGISTER DEFINITIONS SP2 021 

0022 •*♦♦»♦**♦♦*♦♦****♦♦♦♦♦**♦♦*♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦*»♦♦*♦♦**♦***♦*****♦ SP2 022 

RES. 8 

BASE- REGISTER 1 

BASE-REGISTER 2 

LINK-REGISTER 

BRANCH-REGISTER 

REGISTER FOR CARD AREA 

REGISTER FOR PRINT AREA 

0032 ♦♦♦♦*♦*♦*♦♦♦♦♦♦♦♦*♦♦♦♦*♦♦♦♦♦♦♦♦♦♦♦♦♦♦•♦♦♦♦••♦♦♦♦♦♦♦♦♦♦♦*♦***♦♦♦♦♦*♦♦♦ 

0033 ♦ EQUATE SYMBOLS 

0034 **************************r*m*rr*****^*ir********* ***************** 

CONDITION EQUAL 
CONDITION EQUAL AND HIGH 

TYPE A 
TYPE B 
TYPE C 
CHARACTER 

(-•SIR Oft r* "PI? Q Q 

CHARACTER 'BLANK* 



0035 


• 






0036 


EQUAL 


EQO 


8 


0037 


NOTLOM 


EQU 


11 


0038 


* 






0039 


TA 


EQU 


C'A" 


0040 


TB 


EQU 


C'B* 


0041 


TC 


EQU 


C'C* 


0042 


CHARO 


EQU 


CO- 


0043 


CHAR? 


EQU 


C 9' 


0044 


BLANK 


EQU 


C ' 



SP2 


023 


SP2 


024 


SP2 


025 


SP2 


026 


SP2 


027 


SP2 


028 


SP2 


029 


SP2 


030 


♦ * SP2 


032 


SP2 


033 


** SP2 


034 


SP2 


035 


SP2 


036 


SP2 


037 


SP2 


038 


SP2 


039 


SP2 


040 


SP2 


041 


SP2 


042 


SP2 


043 


SP2 


044 



Figure 19. DPS Sample Program, Part 5 of 17 



5LE ASSEMBLER SAMPLE, PARI 2, MAIN PROGRAM 
LOCATN OBJECT CODE ADDl ADD2 STMT SOURCE SPAIEMENr 



01/20/70 PA3E 003 
OPS ASSEMB 03/02 



0000 OOAO 

0002 

0002 

0002 48B0 A108 

0000 

0000 



OlOA 



00U6 *********************************************************************** SP2 046 

0047 ♦ MAIN PROGRAM SP2 047 

0048 *********************************************************************** SP2 048 

0049 ♦ SP2 049 

0050 * LOAD BASE REGISTER SP2 050 

0051 ♦ SP2 051 

0052 BEGIN BASR BASER31,0 LOAD BASE-REGISTER 1 AND SP2 052 009 

0053 USING *,BASERG1 INFORM ASSEMBLER SP2 053 

0054 BASEAll EQU ♦ BASE- ADDRESS 1,1 SP2 054 

0055 LH BASERG2,=Y(BASEA21) LOAD BASE-REGISTER 2 SP2 055 009 

0056 USING DCARDAR, CARDRG FOR IMPLICIT A0DRBSSIN3 SP2 056 

0057 USING DPRINTAR,PRINTRG FOR IMPLICIT ADDRESSING SP2 057 



0006 48E0 AlOA 
OOOA ODDE 
OOOC 47F0 A2AE 



0010 48E0 AlOC 
0014 ODDE 



OlOC 



02B0 



OlOE 



0059 ♦ 


OPEN CARI 


0060 ♦ 




0061 


LH 


0062 


BASR 


0063 


B 


0065 * 


RiiAD A Ci 


0066 ♦ 




0067 GETCARD LH 


0068 


BASR 



BRANCHRG,=Y(OPENF) 
LINKRG, BRANCHRG 
PRNTLINE 



CARD 



Q070 • 
0071 * 
0016 48F0 AlOE 0110 0072 
OOIA 9240 FOOO 0000 0073 
OOIE D23A FOOl FOOO 0001 0000 0074 
0024 F840 A306 A118 0308 OllA 0075 



BRANCHRG, =7 (READ) 
LINKRG, BRANCHRG 



LOAD REG. WITH BRANCH ADDRESS 
OPEN READER AND PRINPER AND RETURN 
PRINT A BLANK LINE 



LOAD REG. WITH BRANCH ADDRESS 
BRANCH TO READ ROUTINE AND REIURS 



BLANK PRINTAREA AND RESEP PACKED RESULT FIELD 

LH PRINrRG,=Y(PRINrAR) LOAD ADDRESS OF PRINT AREA 

MVI 0{PRINTRG),C' ' BLANK IN FIRST BYTE OF PRINT AREA 

MVC l(L«DPRINTAR-l,PRINTRG),0(PRINrRG) BLANK THE REST 

ZAP RESP,=P'0' INITIALIZE RESULT FIELD 



SP2 


059 




SP2 


060 




SP2 


061 


009 


SP2 


062 


009 


SP2 


063 


009 


SP2 


065 




SP2 


066 




SP2 


067 


009 


SP2 


068 


009 


SP2 


070 




SP2 


071 




SP2 


072 


009 


SP2 


073 


009 


SP2 


074 


009 


SP2 


075 


009 



Figure 19. DPS Sample Program, Part 6 of 17 
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ASSEMBLER SAMPLE, PART 2, MAIN PROGRAM 



LOCATN OBJECT CODE ADDl ADD 2 STMT 



002A 


UBCO 


Alio 


002E 


95C1 


COCO 


0032 


«t780 


A048 


00J6 


9bC2 


COOO 


003A 


4780 


A0A2 


003E 


95C3 


cooo 


0042 


4780 


AOAA 


00ti6 


47F0 


A2B8 



004A 


ODAO 




004C 






004C 






004C 


4880 


A0C8 


0050 


95F9 


C003 


0054 


4720 


A28E 


0058 


95F0 


C003 


005C 


4740 


A28E 


0060 


95F9 


C002 


0064 


4720 


A282 


0068 


95F0 


C002 


006C 


47B0 


A02C 


0070 


9540 


C002 


0074 


4770 


A282 


0078 


95F9 


COOl 


007C 


4.720 


A276 


0080 


95F0 


COOl 


0084 


47B0 


A044 


0088 


9540 


COOl 


008C 


4770 


A276 


0090 


4980 


AOCA 


0094 


47B0 


AODO 


0098 


4A80 


A0C8 


009C 


4AC0 


AOCC 


OOAO 


47F0 


A004 



0112 
0000 
004A 
0000 
00A4 
0000 
00 AC 
02BA 



0114 
0003 
02DA 
0003 
02DA 

0002 
02CE 
0002 
0078 
0002 
02CE 

0001 
02C2 
0001 
0090 
0001 
02C2 

0116 

one 

0114 
0118 
0050 



0077 * 

0078 ♦ 
0079 
0080 
0081 
0082 
0083 
0084 
0085 
0086 



SOURCE SIATEMENr 

TEST ryPE OF CARD 

LH CARDRG,=y(CARDAR) 

CLI 0(CARDR3),TA 

BC 8,rYPEA 

CLi OiCAKDR3>,rB 

BC EQUAL, rypEB 

CLI 0{CARDRG),rC 

BE TYPEC 

BC 15,HALr0001 



INiriALIZE REGISTER 
TEST IF TYPE A 
YES 

IF rxpE B 

YES 

IF TYPE C 

YES 

GO TO HALT ROUTIMES 



0088 
0089 
0090 
0091 
0092 
0093 
0094 
0095 
0096 
0097 
0098 
C099 
0100 
0101 
0102 
0103 
0104 
0105 
0106 
0107 
0108 
0109 
0110 
0111 
0112 
0113 
0114 
0115 
0116 
0117 
0118 



TEST FOR DEC. NUMBERS IN THE CARD ENTRIES 



TYPEA BASR 
USING 
BASEA12 E2U 

LH 
TSTRICOL CLI 
BH 
CLI 
BL 

TSTMICOL CLI 
BH 
CLI 
BNL 
CLI 
BNE 

TSTLECOL CLI 
BH 
CLI 
BNL 
CLI 
BNE 

* 

TSTIFIN CH 
BNL 
AH 
AH 
B 



BASER31,0 
♦,BASERG1 



8,=H'l' 

3(CARDRG),249 

HALr003N 

3(CARDRG),240 

HALr003N 

2(CAR0RG),C'9' 

HALT002N 

2(CARDRG),C'0' 

TSTLECOL 

2(CARDRG),C' ' 

HALT002N 

1(CARDR3),X'F9' 

HALTOOIN 

1(CARDRG),X'F0' 

TSTIFIN 

1(CARDRG),X*40' 

HALTOOIN 

8,=H'4' 

CEXPRA 

8,=H'l" 

CARDRG,=H'3' 

TSTRICOL 



CHANGE CONTENTS OF BASE-REGISTER 
AND INFORM THE ASSEMBLER 
BASE- ADDRESS 1,2 

INITIALIZE COUNTER 
COMPARE RIGHT COL MITH 9 
INVALID IF HIGH 
COMPARE WITH 
INVALID IF LOM 

COMPARE MIDDLE COL MITH 9 

INVALID IF HIGH 

COMPARE WITH 

O. K. IF NOT LOW 

IF BLANK 

NO, INVALID 

COMPARE LEFT COL. WITH 9 
INVALID IF HIGH 
COMPARE HITH 
O. K. IF NOT LOW 
IF BLANK 
NO, INVALID 

ALL ENTRIES CHECKED 

YES, COMPUTE EXPRESSION TYPE A 

INCREMENT COUNTER BY 1 

NEXT ENTRY 

LOOP 



01/20/70 1 


PAGE 


004 


DPS ASSEHB 


03/02 


SP2 


077 




SP2 


078 




SP2 


079 


009 


SP2 


080 


009 


SP2 


081 


009 


SP2 


0S2 


OiO 


SP2 


083 


010 


SP2 


084 


010 


SP2 


085 


010 


SP2 


086 


010 


SP2 


088 




SP2 


089 




ER 1 SP2 


090 


010 


SP2 


091 




SP2 


092 




SP2 


093 




SP2 


094 


010 


SP2 


095 


o;o 


SP2 


096 


010 


SP2 


097 


010 


SP2 


098 


010 


SP2 


059 




SP2 


100 


010 


SP2 


101 


010 


SP2 


102 


010 


SP2 


103 


010 


SP2 


104 


on 


SP2 


105 


on 


SP2 


106 




SP2 


107 


on 


SP2 


108 


on 


SP2 


109 


on 


SP2 


110 


on 


SP2 


111 


on 


SP2 


112 


on 


SP2 


113 




SP2 


114 


on 


SP2 


115 


on 


SP2 


116 


on 


SP2 


117 


on 


SP2 


118 


on 
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SLE J^SEMBLER SAMPLE, PART 2, MAIN PROGRAM 
LOCATN OBJECT CODE ADDl ADD2 STMT SOURCE SrAtEMEIir 



OOBO 

00A4 dDDO BOOO 

00A8 <(7F0 BOOA 



01/20/70 PA3E 005 
OPS ASSEMB 03/02 



OOAC (IDDO BOOO 
OOBO 47F0 Blue 



00B4 

00B4 4880 B240 
00B8 95F9 C003 
ODBC i»720 B226 
OOCO 95F0 C003 
OOCU mUO B226 

00C8 95F9 C002 
OOCC 4720 B21A 
OODO 95F0 C002 
00D4 47B0 B02C 
00D8 9540 C002 
OODC 4770 B21A 

OCEO 95F9 COOl 
00E4 4720 B20E 
00E8 95F0 COOl 
OOEC 47B0 B044 
OOFO 9540 COOl 
00F4 4770 B20E 

OOFS 4980 B244 
OOFC 07BD 
OOFE 4A80 B240 
0102 4AC0 B242 
0106 47F0 B004 



OlOA 
OlOA 
01 OC 
OlOE 
0110 
0112 
0114 
0116 
0118 
OllA 



00B4 
0000 
0000 
0000 
0000 
0001 
0004 
0003 
OC 





0120 








USING 


BASEA21,BASERi 


00B4 


0121 


rypEB 




HAS 


LINKRG.TESTEN 


018E 


0122 
0123 
0124 


* 






B 


CEXPRB 


00B4 


0125 


TYPEC 




BAS 


LIHRR3,TESTEN 


0200 


0126 
0127 
0128 


* 
* 






B 


CEXPRC 




0129 


BASEA21 


E2U 


* 




0130 


* 










02FU 


0131 


TESTEMTR LH 


REGS, HI 


0003 


0132 


TRICOL 


CLI 


ENTRy«2,CHAR9 


02DA 


0133 








BH 


HALPOOSN 


0003 


0134 








CLI 


ENTRY*2,CHAR0 


02OA 


0135 
0136 


* 






BL 


HALr003N 


0002 


0137 


TMICOL 


CLI 


ENTRY ♦1,CHAR9 


02CE 


0138 








BH 


HALT002N 


0002 


0139 








CLI 


ENTRY* l.CHARO 


OOEO 


0140 








BNL 


TLECOL 


0002 


0141 








CLI 


ENTRY'!' 1, BLANK 


02CE 


0142 
0143 


* 






BNE 


HALT002N 


0001 


0144 


TLECOL 


CLI 


ENTRY, CHAR9 


02C2 


0145 








BH 


HALTOOIN 


0001 


0146 








CLI 


ENTRY, CHARO 


OOFS 


0147 








BNL 


TIFIN 


0001 


0148 








CLI 


ENTRY, BLANK 


02C2 


0149 
0150 


« 






BNE 


HALTOOIN 


02FS 


0151 


TIFIM 




CH 


REG8,H4 




0152 








BCR 


NOTLOM.LINKRG 


02F4 


0153 








AH 


REGS, HI 


02F6 


0154 








AH 


CARDRG,H3 


OOBS 


0155 








B 


TRICOL 




0157 


* 


1 


[.ii 


?ERAL POOL 




0158 


* 












0159 








LTORG 






0160 




# 


y(BASEA21) 




0161 




# 


y(OPENF) 






0162 




# 


Y(READ) 






0163 




# 


y(P«INTAR) 




0164 




n 


Y(CARDAR) 




0165 




# 


H« 


1' 






0166 




» 


H' 


'4' 






0167 




n 


H' 


3* 






0168 




# 


P' 


0* 





BRANCH TO SUBROUFINE AND RErORN 
BRANCH TO SUBROUTINE 



BRANCH TO SUBROUTINE AND RETURil 
BRANCH TO SUBROUriNE 



BASE- ADDRESS 2,1 

INITIALIZE REGISTER 

COMPARE RI3HT COL HITH 9 

HIGH 

WITH 

LOW 

COMPARE MIDDLE COL MITH 9 

HIGH 

MITH 

O. K. 

IF BLANK 

NO 

COMPARE LEFT COL WITH 9 

HIGH 

MITH 

O. K. 

IP BLANK 

NO 

ALL ENTRIES CHECKED 

YES 

INCREMENT COUNTER BY 1 

NEXT ENTRY 

LOOP 



SP2 


120 




SP2 


121 


Oil 


SP2 


122 


012 


SP2 


123 




SP2 


124 




SP2 


125 


012 


SP2 


126 


012 


SP2 


127 




SP2 


128 




SP2 


129 




S^2 


130 




SP2 


131 


012 


SP2 


132 


012 


SP2 


133 


012 


SP2 


134 


012 


SP2 


135 


012 


SP2 


136 




SP2 


137 


012 


SP2 


138 


012 


SP2 


139 


012 


SP2 


140 


012 


SP2 


141 


012 


SP2 


142 


012 


SP2 


143 




SP2 


144 


013 


SP2 


145 


013 


SP2 


146 


013 


SP2 


147 


013 


SP2 


148 


013 


SP2 


149 


013 


SP2 


150 




SP2 


151 


013 


SP2 


152 


013 


SP2 


153 


013 


SP2 


154 


013 


SP2 


155 


013 


SP2 


157 




SP2 


158 




SP2 


159 


013 
013 
013 
013 
013 
013 
013 
014 
014 
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ASSEMBLER SAMPLE, PART 2, MAIN PROGRAM 



01/20/70 PA3E 006 



LOCATN OBJECT CODE ADDl ADD2 STMT 



SOURCE STATEMENT 



3P3 AS3E«B 03/02 



one HBCO A2B2 
0120 !{8F0 A2B'4 

0124 D208 FOOA A2C3 
012A 92C1 FOm 

012E D202 F019 COOl 
0134 F212 A2BF COOl 

013A 924E FOID 
013E D202 FOIF COOH 
Omi» F212 A2C1 COO«t 
OlUA FA21 A2BE A2C1 

0150 9260 F023 
0151* D202 F025 C007 
015A F212 A2C1 C007 



0166 925C F029 

016A D202 F02B COOA 

0170 F212 A2C1 COOA 

0176 FCiil A2BC A2C1 

017C 927E F030 

0180 F381* F033 A2BC 

0186 36F0 F03B 

018A '♦7F0 A22'» 



OOBt 

018E «»8C0 B24A 
0192 USFO B2UC 

0196 D208 FOOA B25B 
019C 92C2 FOm 

OlAO D202 F019 COOl 
01A6 F212 B257 COOl 

OlAC 3260 FOID 
OIBO D202 FOIF COOt 
0186 F212 B259 C004 
OIBC FBll B257 B259 

01C2 925C F023 

01C6 D202 F025 C007 

OlCC F212 B259 C007 

01D2 FCitl B25i» B259 







0170 


♦ COMPUrE EXPHESSIONS; TYPE A ,,, 


ENrRYl 


♦ ENrt?.Y2 - ENTRYS ♦ ENrRY4 


SP2 


161 








0171 


* 




TYPE B . . . 


ENTRYl 


- ENTRY2 ♦ ENrRY3 ♦ ENrRY4 


SP2 


162 








0172 


* 




TYPE C . . . 


EHTRYl 


* ENrRy2 + ENIRYS - EMIRYU 


SP2 


163 








0173 


* 










SP2 


164 








0174 




DROP 


BASERG2 






SP2 


165 








0175 


♦ 










SP2 


166 




02FE 




0176 


CEXPRA 


LH 


CARDRS.YCARDAR 




INITIALIZE REGISTER 


SP2 


167 


014 


0300 




0177 
0178 


* 


LH 


FRINTRS.YPRIWrAR 




IMITIALIZE RESisrea 


3P2 
SP2 


168 
169 


014 


OOOA 


03QF 


0179 




MVC 


10(9,PRINrRG) ,MESS 




MESSAGE TO PRIi^T AREA 


SP2 


170 


014 


0011* 




0180 
0181 


* 


MVI 


20tPRINTRG) ,rA 




TYPE ro PRINTAREA 


SP2 
SP2 


171 
172 


014 


•0019 


0001 


0182 




MVC 


25(3,PRINTRG) ,1(CARDR3) 




NUMBtiR 1 ro PRINT ARi,A 


SP2 


173 


014 


030B 


0001 


0183 
0184 


* 


PACK 


RESP+3(2),1(3,CARDRG) 




PACK i-^UMBER 1 (Nl) 


SP2 
SP2 


174 
175 


014 


OOID 




0185 




MVI 


29(PRINrRG),C'+' 




SIGN TO PRINT AREA 


SP2 


176 


014 


OOIF 


OOOU 


0186 




MVC 


31(3,PRINTRG) ,4(CARDRG) 




NUMBER 2 TO PRINT AREA 


SP2 


177 


014 


030D 


0004 


0187 




PACK 


PFLD,4(3,CARDRG) 




PACK NUMBER 2 (N2) 


SP2 


178 


014 


030A 


030D 


0188 
0189 


* 


AP 


RESP+2(3) ,PFLD 




Nl ♦ N2 


SP2 
SP2 


179 

180 


014 


0023 




0190 




MVI 


35(PRINTRG),C'-' 




SIGN TO PRINT AREA 


SP2 


181 


015 


0025 


0007 


0191 




MVC 


37(3,PRINrRG),7(CARDRG) 




i^UMBER 3 TO PRINT AREA 


SP2 


182 


015 


030D 


0007 


0192 




PACK 


PFLD,7(3,CARDR3) 




PACK NUMBER 3 (N3) 


SP2 


183 


015 


030A 


030D 


0193 
0194 


* 


3F 


RE3F+2(3),FFLD 




lii v N2 - S3 


SP2 
SP2 


184 
185 


015 


0029 




0195 




MVI 


41(PRTNrRG) ,C'*' 




SIGN TO PRINT AREA 


SP2 


186 


015 


002B 


OOOA 


0196 




MVC 


43(3,PRINrRG) ,10(CARDR3) 


NUMBER 4 TO PRINT AREA 


SP2 


187 


015 


030D 


OOOA 


0197 




PACK 


PFLD,10(3,CARDRG) 




PACK NUMBER 4 (N4) 


SP2 


188 


015 


0308 


030D 


0198 
0199 


♦ 


MP 


RESP.PFLD 




Nl + N2 - N3 ♦ N4 


SP2 
SP2 


189 
190 


015 


0030 




0200 




MVI 


48(PRINrRG),C'=' 




EQUAL SIGN TO PRINT AREA 


SP2 


191 


015 


0033 


0308 


0201 




UNPK 


51(9,PRINTRG) , RESP 




RESULT TO PRINT AREA 


SP2 


192 


015 


003B- 




0202 




01 


59(PRINrRG),X'F0' 




CHANGE SI3N IN ZONE TO F 


SP2 


193 


016 


0270 




0203 
0204 
0205 
0206 
0207 


* 
♦ 

* 


B 
0SIM3 


EDIT 
BASEA21,BASERG2 






SP2 
SP2 
SP2 
SP2 
SP2 


194 
195 
196 
197 
198 


016 


02FE 




0208 


CEXPRB 


LH 


CARDRG.YCARDAR 




INITIALIZE REGISTER 


SP2 


199 


016 


0300 




0209 
0210 


♦ 


LH 


PRINPRGfYPRINTAR 




INITIALIZE RE3ISTER 


SP2 
SP2 


200 
201 


016 


OOOA 


030F 


0211 




MVC 


DPRINrAR+10(L' MESS), MESS 


MESSAGE TO PRINT AREA 


SP2 


202 


016 


OOIU 




0212 
0213 


* 


MVI 


DPRINrAR+20,rB 




TYPE TO PRINT AREA 


SP2 
SP2 


203 
204 


016 


0019 


0001 


0214 




MVC 


DPRINrAR+25 (L* MUMBl) , NUHBl 


iWMBER 1 TO PRINT AREA 


SP2 


205 


016 


030B 


0001 


0215 




PACK 


RESP+L'RESP-LNUMBP(LNOMBP) jHOMBl PACK NUMBER 1 (HI) 


SP2 


206 


016 






0216 


* 










SP2 


207 




OOID 




0217 




i^VI 


DPRIrirAR+29,C''-' 




' -' TO PRINT AREA 


SP2 


208 


Olb 


OOIF 


0004 


0218 




MVC 


DPRINTAR+31 (L' NUMB2) , Nl 


!KB2 


NUMBER 2 TO PRINT ARSA 


SF2 


209 


016 


030D 


0004 


0219 




PACK 


PFLD, N0MB2 




PACK NUMBER 2 (N2) 


SP2 


210 


016 


030B 


030D 


0220 
0221 


* 


SP 


RESP+L'RESP-LDIF(LDIF) , 


PFLD 


Nl - N2 


SP2 
SP2 


211 
212 


017 


0023 




0222 




MVI 


DPRINTAR*35,C'*' 




•♦• TO PRINT AREA 


SP2 


213 


017 


0025 


0007 


0223 




MVC 


DPRINrAR+37 (L* NUMB3) ,N0MB3 


NUMBER 3 TO PRINT AREA 


SP2 


214 


017 


030D 


0007 


0224 




PACK 


PFLD, NUMB 3 




PACK NUMBER 3 (ii3) 


SP2 


215 


017 


0308 


030D 


0225 




MP 


RESP, PFLD 




Nl - N2 * N3 


5P2 


216 


017 



Figure 19. DPS Sample Program, Part 9 of 17 
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SLE ASSEMBLER SAMPLE, PART 2, MAIN PROGRAM 
LOCATN OBJECT CODE ADDl A0D2 STMT SOURCE STATEMENT 



01/20/70 PA3E 007 
DPS AS3E>1B 03/02 



01D8 92«»E F029 0029 
OlDC D202 F02B COOA 002B 
01E2 F212 B259 COOA 030D 
01E8 FAftl B25a B259 0308 

OlEE »27E F030 0030 
01F2 F38«» F033 B25« 0033 
01F» 96F0 F03B 003B 
OlFC *7F0 BIBC 0270 



0200 «»8C0 B2«»A 02FE 

020« «t8F0 B24C .0300 

0208 D208 FOOA B25B OOOA 

020E D200 FOia COOO OOIU 

021i» D202 F019 COOl 0019 

021A F212 B257 COOl 030B 

0220 925C FOID OOID 

022«t D202 FOIF COOU OOIF 

022A F212 B259 COOU 030D 

0230 FCttl B25U B259 0308 

0236 92UE F023 0023 

023A D202 F025 C007 0025 

02«t0 F212 B259 C007 030D 

0246 FAtl B25I* B259 0308 

02UC 9260 F029 0029 

0250 D202 F02B COOA 002B 

0256 F212 B259 COOA 030D 

025C FB41 B25«J B259 0308 

0262 927E F030 0030 

0266 F384 F033 B254 0033 

026C 96F0 F03B 003B 



02F4 
0302 
0000 
0298 
0304 
02B0 
0000 
02F4 
02F4 
0278 

02F4 
030C 



OOOA 
OOOA 
030D 



0308 



030F 
0000 



0001 
0001 



000i» 
0004 
030D 



0007 
0007 
030D 



OOOA 
OOOA 
030D 



0308 



0226 
0227 
0228 
0229 
0230 
0231 
0232 
0233 
0234 
0235 
0236 
0237 
0238 
0239 
0240 
0241 
0242 
0243 
0244 
0245 
0246 
0247 
0248 
0249 
0250 
0251 
0252 
0253 
0254 
0255 
0256 
0257 
0258 
0259 
0260 
0261 
0262 
0263 
0264 



MVI DPRINTAR*41,C'*' 

MVC DPRINTAR+43(L'«UMB4),NUMB4 

PACK PFLD, NUMB4 

AP RESP.PFLD 

MVI DPRINTAR+48,C'=' 

UNPK DPRINrAR+51(L'iiESP*2-l),RESP 

01 DPRINTAR+59,B'11110000' 

B EDIT 



•♦• TO PRINT ARiiA 
NUMBER 4 ro PRINT ARBA 
PACK NUMBER 4 (N4) 
Nl - N2 * N3 ♦ N4 

•=• TO PRINT AREA 
RESULT TO PR AREA 
CHANGE SIGN IN ZONE TO F 



CEXPRC LH 
LH 



CARDRG, YCARDAR 
PRINTRG.yPRINTAR 



MVC D MESS, MESS 
MVC PTYPE,TyPE 

MVC PNUMBl, NUMBl 
PACK RESPRI, NUMBl 

MVI SIGN1,C'*' 
MVC PNUMB2,NUMB2 
PACK PFLD,NUMB2 
MP RESP.PFLD 

MVI SIGN2,C'+' 
MVC PNUMB3 , NaMB3 
PACK PFLD,NUMB3 
AP RESP,PFLD 

MVI 3IGN3,C'-' 
MVC PNUMB4,NUMB4 
PACK PFLD,NUMB4 
SP RESP.PFLD 

MVI E>JSIGN,C' = ' 

UNPK RESZ.RESP 

01 RESZ+L'RE3Z-1,C°0' 



0270 


4880 


B240 


0274 


48F0 


B24E 


0278 


95F0 


FOOO 


027C 


4770 


B1E4 


0280 


4980 


B250 


0284 


47B0 


BIFC 


0288 


9240 


FOOO 


028C 


4AF0 


B240 


0290 


4A80 


B240 


0294 


47 FO 


B1C4 


0298 


4BF0 


B240 


029C 


9101 


B258 



0266 * 

0267 * 

0268 EDIT 
0269 

0270 TSTIFO 

0271 

0272 

0273 

0274 

0275 

0276 

0277 

0278 ♦ 

0279 TSTSIGN 
0280 



INITIALIZE REGISTER 
INITIALIZE REGISTER 



MESSAGE AND 

TYPE TD PRINT AREA 



N2 

Nl * N2 



N3 

Nl * N2 ♦ NS 



Nl ♦ N2 ♦ N3 - N4 



RESULT TO PRINT AREA 
CHANGE SIGN TO F 



EDIT RESULT 



LH REGS, HI 

LH PRINrRG,YRESZ 

CLI 0(PRINTRG),C'0' 

BNE TSTSIGN 

CH REG8,YLRESZ 

BNL PRNTLINE 

MVI 0(PRINrRG),C' 

AH PRINTR3,H1 

AH REG8,H1 

B TSTIFO 

SH PRINTRG.Hl 

TM RESP+L*RESP-1,B' 00000001" TEST SIGN 



INITIALIZE REGISTER 

LOAD ADDRESS OF RESULT FIELD 

TEST IF 

NO 

ALL BYTES CHECKED 

YES 

MOVE BLANK 

NEXT BYTE 

INCREMENT COUNTER BY 1 

LOOP 

ONE STEP BACK 



SP2 


217 




SP2 


218 


017 


SP2 


219 


017 


SP2 


220 


017 


SP2 


221 


017 


SP2 


222 




SP2 


223 


017 


SP2 


224 


017 


SP2 


225 


018 


SP2 


226 


018 


SP2 


227 




SP2 


228 




SP2 


229 


018 


SP2 


230 


018 


SP2 


231 




SP2 


232 


018 


SP2 


233 


018 


SP2 


234 




SP2 


235 


018 


SP2 


236 


018 


SP2 


237 




SP2 


238 


018 


SP2 


239 


018 


SP2 


240 


018 


SP2 


241 


019 


SP2 


242 




SP2 


243 


019 


SP2 


244 


019 


SP2 


245 


019 


SP2 


246 


019 


SP2 


247 




SP2 


248 


019 


SP2 


249 


019 


SP2 


250 


019 


SP2 


251 


019 


SP2 


252 




SP2 


253 


019 


SP2 


254 


020 


SP2 


255 


020 


SP2 


257 




SP2 


258 




SP2 


259 


020 


SP2 


260 


020 


SP2 


261 


020 


SP2 


262 


020 


SP2 


263 


020 


SP2 


264 


020 


SP2 


265 


020 


SP2 


266 


020 


SP2 


267 


020 


SP2 


268 


020 


SP2 


269 




SP2 


270 


020 


SP2 


271 


020 



Figure 19. DPS Sampla Program, Part 10 of 17 
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SLE ASSEMBLER SAMPLE. PART 2, MAIN PROGRAM 
LOCATN OBJECT CODE ADDl ADD2 STMT SOURCE STATEMENT 



01/20/70 PA3E 008 
DPS ASSEHB 03/02 



02.A0 


1*710 


B1F8 


02AC 


0281 


EG 


MINUS 


02A(| 


92HE 


FOOO 


0000 


0282 PLUS 


MVI 


OCPRINTRG),C"+ 


02A8 


II7F0 


BIFC 


02B0 


0283 


B 


PRNTLINE 


02AC 


9260 


FOOO 


0000 


028i| MINUS 


MVI 


0(PRINTRG),C'- 



02B0 48E0 B2it6 
02B«t ODDE 
0286 47F0 B232 



02BA 9900 0001 

02BE «»7F0 B232 

02C2 4080 B230 

02C6 9610 B231 

02CA U7F0 B22E 

02CE 4080 B230 

rtirk'^ n^n/\ r»-\^« 

\J^kJ>£, 7U£\/ OtCJIX 

02D6 i»7F0 B22E 

02DA 4080 B230 

02DE 9630 B231 

02E2 9900 0000 

02E6 48A0 B252 

0002 

02EA 47F0 AOOE 



02FA 



02E6 



PRINT A LINE 



0286 * 

0287 * 

0288 PRNTLINE LH 

0289 BASR 

0290 B 



BRANCHRG.YPRINT 
LINKRG, BRANCHRG 
BGETCARD 





0292 


♦ HALT ROUTINES 




0293 


* 






0001 


0294 


HALTOOOl 


HPR 


1,0 


02E6 


0295 
0296 


* 


B 


BGETCARD 


02E4 


0297 


HALTOOIN 


STH 


8,HPRI*2 


02E5 


0298 




01 


HPRI+3,X'10' 


02E2 


0299 
0300 


* 


B 


HPRI 


02E4 


0301 


HALT002N 


STH 


REG8,HPRI*2 


02E5 


0302 




01 


HPRI*3,X'20' 


02E2 


0303 
0304 


♦ 


B 


HPRI 


02E4 


0305 


HALT003N 


STH 


REG8,HPRI'»2 


02E5 


0306 




01 


HPRI+3,X'30' 


0000 


0307 


HPRI 


HPR 


0,0 


0306 


0308 


BGETCARD 


LH 


BASER31,YBASEA11 




0309 




USING 


BASEAll.BASERGl 


0010 


0310 




B 


GETCARD 



MOVE PLUS SIGN 
MOVE MINUS SIGN 



LOAD BRANCH-REGISTER 
PRINT A LINE Ai4D RETURil 
av.An MPYT ^ARD 



INVALID CARD TYPE 
NEXT CARD 

STORE ENTRy NUMBER (N = 1, 2, 3 OR 4 
•OR' COLUMN NUMBER (COL. 1) 



ENTRY MOMBER (» = 1, 2, 3 OR 4) 
NUMBER OF COL 



ENTRY NUMBER (N = 1, 2, 3 OR 4) 
COL 3 

HILL BE UPDATED BY HALT ROUTINES 
LOAD BASE REGISTER 1 WITH ORIS VALUE 

NEXT CARD 



SP2 


272 


021 


SP2 


273 


021 


SP2 


274 


021 


SP2 


275 


021 


SP2 


277 




SP2 


278 




SP2 


279 


021 


SP2 


280 


021 


SP2 


281 


021 


SP2 


283 




SP2 


284 




SP2 


285 


021 


SP2 


286 


021 


SP2 


287 




SP2 


288 


021 


SP2 


289 


021 


SP2 


290 


'D21 


SP2 


291 




SP2 


292 


021 


SP2 


293 


021 


SP2 


294 


022 


SP2 


295 




SP2 


296 


022 


SP2 


297 


022 


SP2 


298 


022 


SP2 


299 


022 


SP2 


300 




SP2 


301 


022 



02EE 48E0 B248 
02F2 07FE 



02PC 



0312 ♦ END OF CARD FILE 

0313 ♦ 

0314 EOCF LH BRANCHRG. YCLOSEF LOAD ADDRESS OF CLOSE ROUTINE 

0315 BR BRANCHRG CLOSE THE FILES 



SP2 303 

SP2 304 

FREE SP2 305 022 

FORMAT SP2 306 022 



Figure 19, DPS Sample Program, Part 11 of 17 
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SLE ASSEMBLER SAMPLE, PART 2, DATA DEFINITIONS 
LOCATN OBJECT CODE AODl A0D2 STMT SOURCE STATEMENT 



01/20/70 PA3E 009 



DPS ASSEMB 03/02 



02Fa 


0001 


02F6 


0003 


02F8 


OOOH 


02FA 


0000 


02FC 


0000 


02FE 


0000 


0300 


0000 


0302 


0033 


03 0« 


0009 


0306 


0002 


0308 


OOOOOOOOOC 


030D 


OOOC 


0308 




0308 


000000 


030B 


OOOC 


0002 




0002 




030F 




030F 


C3C1D9C4U0E3E8D7 



0317 


♦ DATA DEFINITIONS 


0318 


* 






0319 


HI 


DC 


H*l* 


0320 


H3 


DC 


H'3' 


0321 


H4 


DC 


H'4' 


0322 


« 






0323 


yPRIMT 


DC 


Y (PRINT) 


0324 


YCLOSEF 


DC 


Y(CLOSEF) 


0325 


yCARDAR 


DC 


Y(CARDAR) 


0326 


yPRIMTAR 


DC 


Y(PRINrAR) 


0327 


YRESZ 


DC 


Y(PRINrAR*51 


0328 


YLRESZ 


DC 


Y(L«RESZ) 


0329 


YBASEAll 


DC 


Y(BASEAll) 


0330 


* 






0331 


RESP 


DC 


PLS'O' 


0332 


PFLD 


DC 


PL2'0' 


0333 


* 






0334 




ORG 


RESP 


0335 




DC 


X* 000000* 


0336 


RESPRI 


DC 


PL2'0' 


0337 


LNUMBP 


EQU 


L'PFLD 


0338 


LDIF 


EQU 


LNUMBP 


0339 


* 






0340 




ORG 




0341 


MESS 


DC 


C'CARD TYPE* 


0342 


* 







ADDRESS OF PRINT ROUTINE 

ADDRESS OF CLOSE R0UTI.1E 

ADDRESS OF CARDAREA 

ADDRESS OF PRINTAREA 

ADDRESS OF RESULT FIELD ZONED 

LENGTH OF RESZ 

BASE ADDRESS 1 1 

RESULT PACKED 
PACK FIELD 

SET LOC. COUNTER BACK TO KE3P 
FIRST PART OF RESP 
RIGHT PART OF RESP 
LENGTH OF PACKED NUMBER 
LENGTH OF DIFFERENCE 

, TO PREVENT OVERLOADING OF PFLD 



SP2 


308 




SP2 


309 




SP2 


310 


022 


SP2 


311 


022 


PP2 


312 


022 


SP2 


313 




SP2 


314 


022 


SP2 


315 


022 


SP2 


316 


022 


SP2 


317 


024 


SP2 


318 


024 


SP2 


319 


024 


SP2 


320 


024 


SP2 


321 




SP2 


322 


024 


SP2 


323 


024 


SP2 


324 




SP2 


325 




SP2 


326 


026 


SP2 


327 


026 


SP2 


328 




SP2 


329 




SP2 


330 




SP2 


331 




SP2 


332 


027 


SP2 


333 





Figure 19. DPS Sample Projram, Part 12 of 17 
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SLE 

LOCATN 

0000 

0000 
0000 
0001 

0007 
OOOA 
0001 
OOOD 

0000 

0000 
OOOA 
OOOA 
OOIU 

oom 

0019 
0019 
OOID 
GOIF 
OOIF 
0023 
0025 
0025 
0029 
002B 
002B 
0030 
0033 
0033 
003C 



ASSEMBLER SAMPLE, PART 2, DUMMY COi<TROL SECriONS 
OBJECT CODE ADDl ADD2 STMT SOURCE SPATEMENr 



03i»ij 


DCSl 


DSECr 


, 


03i»5 


* 






03<»6 


DCARDAR 


DS 


0CL13 


03«»7 


TYPE 


DS 


C 


03U8 


NUMBl 


DS 


CL3 


03!}9 


wUp5B2 


DS 


CL3 


0350 


NUMB 3 


DS 


CL3 


0351 


NOMBU 


DS 


CL3 


0352 


ENTRY 


EQU 


MUMBl 


0353 


CAEND 


EQU 


* 


0355 


DCS2 


DSECr 




0356 


« 






0357 


DPRINTAR 


DS 


0CL60 


0358 




ORG 


DPRINTAR+IO 


0359 


DMESS 


DC 


C'CARD TYPE 


0360 




ORG 


DPRINTAR+20 


0361 


PTYPE 


DS 


C 


0362 




ORG 


DPRINrAR+25 


0363 


PNUMBl 


DS 


CL3 


036H 


SIGMl 


EQU 


♦ + 1 


0365 




ORG 


* + 3 


0366 


PNUMB2 


ns 


rr.T 


0367 


SIGM2 


EQU 


♦ +1 


0368 




ORG 


♦+3 


0369 


PNUHB3 


DS 


CL3 


0370 


SIGN3 


EQU 


♦ + 1 


0371 




ORG 


* + 3 


0372 


PNUMB4 


DS 


CL3 


0373 


EQSIGN 


EQU 


* + 2 


037«» 




ORG 


♦ + 5 


0375 


RESZ 


DS 


CL9 


0376 


PAEND 


EQU 


± 


0378 




END 


BEGIN 



DUMMY CARDAREA 



DUMMY PRINPAREA 



01/20/70 PA3E 010 

DPS ASSEMB 03/02 

SP2 335 
SP2 336 
SP2 337 
SP2 338 
SP2 339 
8^2 340 
SP2 341 
SP2 3!»2 
SP2 343 
SP2 344 



SP2 346 
SP2 347 
SP2 348 
SP2 349 
SP2 350 
SP2 351 
SP2 352 
SP2 353 
SP2 354 
SP2 355 
SP2 Jbb 
SP2 357 
SP2 358 
SP2 359 
SP2 360 
SP2 361 
SP2 362 
SP2 363 
SP2 364 
SP2 365 
SP2 366 
SP2 367 



SP2 369 028 



NO STATEMENT FLAGGED 



PCS. ID REL.ID FLGS ADDR 



01 


01 


04 


OlOA 


01 


02 


04 


OlOC 


01 


03 


04 


OlOE 


01 


07 


04 


0110 


01 


06 


04 


0112 


01 


04 


04 


02FA 


01 


05 


04 


02FC 


01 


06 


04 


02FE 


01 


07 


04 


0300 


01 


07 


04 


0302 


01 


01 


04 


0306 



RELOCATION DICnONARY 



Figure 19. DPS Sample Program, Part 13 of 17 
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CROSS-REFERENCE LISP 



SYMBOL 



LEN VALUE DEF 



CROSS- REFERENCE 



BASEAll 

BASEA12 

BASEA21 

BASERGl 

BASERG2 

BEGIN 

BGETCARD 

BLANK 

BRANCdRG 

CAEND 

CAR3AR 

CARDRG 

CEXPRA 

CEXPRB 

CEXPRC 

CHARO 

CBAR9 

CLOSEF 

DCARDAR 

DCSl 

DCS 2 

DMESS 

DPRINTAR 

EDIT 

ENTRY 

EOCF 

EQSIGN 

EQUAL 

GETCARD 

HALTOOOl 

HALTOOIN 

HALT002N 

dALT003N 

HPRI 

Ml 

H3 

H4 

LDIF 

LINKRG 

LNUMBP 

MESS 

MINUS 

NOTLOW 

NUHBl 

NUMB2 

iiOHBS 

NUMBit 

OPENF 

PAEND 

PART2 



0002 
OOUC 
OOBQ 
OOOA 
OOOB 
0000 
02E6 
0040 
OOOE 
OOOD 
0000 
OOOC 

one 

018E 
0200 
OOFO 
00F9 
0000 



13 0000 



0000 
0000 
OOOA 



60 0000 



0270 
0001 
02EE 
0030 
0008 
0010 
02BA 
02C2 
02CE 
02DA 
Q2E2 
02F4 
02F6 
02F8 
0002 
OOOD 
0002 
030F 
02AC 
OOOB 
0001 
0004 
0007 
OOOA 
0000 
003C 
0000 



0054 
0092 
0129 
0025 
0026 
0052 
0308 
0044 
0028 
0353 
0015 
0029 

0176 
0208 
0238 
0042 
0043 
0014 
0346 
0344 
0355 
0359 
0357 

0268 
0352 
0314 
0373 
0036 
0067 
0294 
0297 
0301 
0305 
0307 
0319 
0320 
0321 
0338 
0027 
0337 
0341 
0284 
0037 
0348 
0349 
0350 
0351 
0011 
0376 
0004 



0309 0329 



0055 
0052 
0055 
0378 
0290 
0141 
0061 

0079 
0056 
0154 
0115 
0122 
0126 
0134 
0132 
0324 
0056 



0241 
0057 
0358 
0203 
0132 
0018 
0262 
0083 
0310 
00d6 
0108 
0101 
0096 
0297 
0131 
0154 
0151 
0220 
0062 
0215 
0179 
0281 
0152 
0214 
0218 
0223 
0228 
0061 



0120 
0053 
0120 

0295 
0148 
0062 

0325 
0079 
0176 



0139 
0137 



0206 

0090 0091 0308 0309 

0174 0206 



0067 0068 0288 0289 0314 0315 



0080 0082 0084 0095 0097 0100 0102 0104 0107 0109 0111 0117 
0182 0183 0186 0187 0191 0192 0196 0197 0208 0238 



0146 
0144 



0074 0211 0212 0214 0217 

0360 0362 

0235 

0134 0137 0139 0141 0144 



0112 0145 0149 

0105 0138 0142 

0098 0133 0135 

0298 0299 0301 0302 0303 

0153 0268 0275 0276 0279 



0220 

0068 0121 0125 0152 0289 

0215 0338 

0211 0211 0241 



0214 0215 0244 0245 0352 

0218 0219 0248 0249 

0223 0224 0253 0254 

0228 0229 0258 0259 



0218 0222 0223 0227 0228 0232 0233 0234 



0146 0148 



0305 0306 
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CROSS-REFERENCE LIST 



SYMBOL 


LEW 


VALUE 


DEF 


CROSS 


'REFER 


:ence 






















PFLD 


2 


030D 


0332 


0187 
0254 


0188 
0255 


0192 
0259 


0193 

0260 


0197 
0337 


0198 


0219 


0220 


0224 


0225 


0229 


0230 


0249 


PLUS 


14 


02A4 


0282 




























PNUMBl 


3 


0019 


0363 


0244 


























PNUME2 


3 


OOIF 


0366 


0248 


























P NUMB 3 


3 


0025 


0369 


0253 


























PHUMBU 


3 


002B 


0372 


0258 


























PRINT 


1 


0000 


0013 


0323 


























PRINTAR 


1 


0000 


0016 


0072 


0326 


0327 






















PRINTRG 


1 


OOOF 


0030 


0057 


0072 


0073 


0074 


0074 


0177 


0179 


0180 


0182 


0185 


0186 


0190 


0191 










0196 


0200 


0201 


0202 


0209 


0239 


0269 


0270 


0274 


0275 


0279 


0282 


0284 


PRNTLINE 


4 


02B0 


0288 


0063 


0273 


0283 






















PTYPE 


1 


0014 


0361 


0242 


























READ 


1 


0000 


0012 


0067 


























KEG8 


1 


0008 


0024 


0131 


0151 


0153 


0268 


0272 


0276 


0301 


0305 












RESP 


5 


0308 


0331 


0075 
0250 


0183 
0255 


0188 
0260 


0193 
0263 


0198 
0280 


0201 
0280 


0215 
0334 


0215 


0220 


0220 


0225 


0233 


0233 


RESPRI 


2 


030B 


0336 


0245 


























KEiJZ 


9 


0033 


0375 


0263 


0264 


0264 


0328 




















SIGNl 


1 


OOID 


0364 


0247 


























mGN2 


1 


0023 


0367 


0252 


























iJIGN3 


1 


0029 


0370 


0257 


























FA 


1 


OOCl 


0039 


0080 


0180 
























re 


1 


00C2 


0040 


0082 


0212 
























re 


1 




0041 


0084 


























TESTENTR 


4 


00B4 


0131 


0121 


0125 
























riFIN 


(4 


00F8 


0151 


0147 


























TLECOL 


H 


OOEO 


0144 


0140 


























TMICOL 


H 


00C8 


0137 




























TRICOL 


U 


00B8 


0132 


0155 


























TSTIFIN 


4 


0090 


0114 


0110 


























TSTIFO 


^ 


0278 


0270 


0277 


























rr.TLECOL 


1* 


0078 


0107 


0103 


























TSTMICOL 


«j 


0060 


0100 




























rSTRICOL 


£1 


0050 


0095 


0118 


























TSTSIGN 


4 


0298 


0279 


0271 


























TYPE 


1 


0000 


0347 


0242 


























TYPEA 


2 


004A 


0090 


0081 


























TYPED 


4 


00A4 


0121 


0083 


























TYPEC 


4 


OOAC 


0125 


0085 


























Y3ASEA11 


2 


0306 


0329 


0308 


























YCARDAR 


2 


02FE 


0325 


0176 


0208 


0238 






















YCLOSEF 


2 


02FC 


0324 


0314 


























YLRESZ 


2 


0304 


0328 


0272 


























YPRINT 


2 


02FA 


0323 


0288 


























YPRINTAR 


2 


0300 


0326 


0177 


0209 


0239 






















YHESZ 


2 


0302 


0327 


0269 



























0195 



0233 
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END OF JOB 
// PAUSE INSERT ASSEMB OUTPUr DECKS OF BOTH ASSEMBLIES FOR LNKEDT RON 

BUO 
// JOB LNKEDT 

// ASSGN SYSOPT.UA OUTPUT ONLY IN RELOCATABLE AREA 

// EXEC 



MOD 20 DPS LINKAGE EDITOR 



VERS 03/01 



INPUT 



PHASE SAMPLE, S,0 

TXT LOADP X'OOOO" 
ACTIdN DUP 
XFR X'017C' 
ACTION NODOP 
TXT LOADP X'017C' 
END 

TXT LOADP X'OOOO* 
END X'OOOO* 
ENTRY 



START JUST BEHIND THE MONITOR 



SPl OIU 

PDRttSa? 
SLE 0U7 
PDRUSSO 

SLE 055 

SLE 028 
SLE 029 



OUTPUT 



PHASE SAMPLE, A, X'OD«»A',, 0000 
TXT LOADP X'OMA' 
ACTION DUP 
XFR X'OECe* 
ACTION NODUP 
TXT LOADP X'0EC6« 
END X'0FU2' 



SLEOOOl 

SLE0027 
SLE0028 
SLElOOl 

SLE1024 
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01/20/70 PHASE 



L-OCORE HICORE 



-ADD ESD r¥P£ LABEL 



LOADED REL-FR 



onnfi.iri 



PARri 



NUMBER OF UNDEFINED RLD REFERENCE - 000 

NUMBER OF TXT OR REP CARDS OUTSIDE PHASE LIMITS- 000 



ODMA 



ODttA 



ENTRY 


OPENF 


0EC6 


ENTRY 


READ 


GEDO 


ENTRY 


PRINT 


OEDS 


ENTRY 


CLOSEF 


OEEO 


ENTRY 


CARDAR 


0EF9 


ENTRY 


PRINTAR 


0F06 


C3ECT 


PART 2 


0FU2 


EJ«TRY 


EOCF 


1230 



END OF JOB 
// JOB CMAINT 
// EXEC R 



CORE IMAGE MAINTENANCE RUN 



DPS CMAINT PROGRAM VERSION 06 MOD-LEVEL 00 

// CATAL 

PHASE SAMPLE SUBPHASE LOADPOINT 0D4A ENTRYPOINT 0EC6 REPLACED AN OLD ONE 

PHASE SAMPLE SUBPHASE 1 LOADPOINT 0EC6 ENTRYPOINT 0Ftt2 REPLACED AN OLD ONE 

// END 



SYSTEM D FIRST SECTOR LAST S ALLOC LAST S OCC 
CORE IMAGE D OOU « 005 1 9 005 1 6 
CORE IMAGE L 005 2 060 1 9 059 7 7 



SECT ALLOC SECT OCC SECT AVAIL 
00080 00077 00003 
05500 05«»58 000<t2 



01/20/70 



END OF JOE 






















// JOB SAMPLE 










ASSEMBLE 


;r sample 




// EXEC 






















CARD TYPE 


A 


1 


♦ 


2 


- 


3 




4 


= 





CARD TYPE 


B 


1 


- 


2 




J 




4 


= 


♦ 1 


CARD TYPE 


C 


1 


* 


2 




3 




4 


= 


♦ 1 


CARD TYPE 


A 


5 


♦ 


6 




7 




U 


= 


♦ 32 


CARD TYPE 


B 


5 


- 


6 




7 




8 


= 


♦ 1 


CARD TYPE 


C 


5 


* 


6 




7 




8 


= 


♦ 29 


CARD TYPE 


A 


i»5 


♦ 


71 




28 




39 


= 


♦ 3432 


CARD. TYPE 


B 


U5 


- 


71 




28 




39 


= 


-689 


CARD TYPE 


C 


US 


* 


71 




28 




39 


= 


♦ 3184 


CARD TYPE 


A 


248 


♦ 


935 




627 




310 


= 


♦172360 


CARD TYPE 


B 


248 


- 


935 




627 




310 


= 


-430439 


CARD TYPE 


C 


248 


* 


935 




627 


- 


310 


= 


+232197 



END OF JOB 
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// LOG 

// JOB ASSEMB 

// DATE 70020 

// ASSGN SYSIPT.X'IOO'.RU 2501 

// ASSGN SYSOPT,X'300',P2 l'»*2 

// ASSGN syS000,X'803',Di* 

// VOL SYSOOO.WORKl 

// DLAB 'SySTEM/360 MOD 20 DPS 1202020 '.P C 

0001,67150,67150 
// XTENr 1,000, 0153000, 0199009, '202020', SYSOOO 
// EXEC 

AOPTN NOSYM SPl 001 

♦ SPl 002 
^*****^***** **************************************************** ******* SPl 003 

♦ PREPARE CONTROL CARDS FOR LINKAGE EDITOR RUN SPl 00« 
*********************************************************************** SPl 005 

♦ SPl 006 
REPRO SPl 007 

// JOB LNKEDT SPl 008 

REPRO SPl 009 

// ASSGN SYSOPT, UA OUTPUT ONLY IN RELOCATABLE AREA SPl 010 

REPRO SPl Oil 

// EXEC SPl 012 

REPRO SPl 013 

PHASE SANiPLE, S, START JUST BEHIND THE MONITOR SPl 014 

SLE TITLE 'ASSEMBLER SAMPLE, PART 1, IOCS' SPl 015 

*********************************************************************** sp]^ Q16 

PARTI START FIRST PART OF THE SAMPLE SPl 017 

************************ it* *********************** ********************** SPl 018 

SPACE 2 SPl 019 

*********************************************************************** SPl 020 

♦ DEFINE ENTRIES AND EXTERNAL SYMBOLS SPl 021 
*********************************************************************** SPl 022 

♦ SPl 023 
ENTRY OPENF OPEN ROUTINE SPl 024 
ENTRY READ READ ROUTINE SPl 025 
ENTRY PRINT PRINT ROUTINE SPl 026 
ENTRY CLOSEF CLOSE ROUTINE SPl 027 
ENTRY CARDAR AREA WHERE CARD IS STORED SPl 028 
ENTRY PRINTAR PRINT AREA SPl 029 

» SPl 030 

EXTRN EOCF END OF CARD FILE SPl 031 

SPACE 2 SPl 032 

*********************************************************************** gpi 033 

♦ SYMBOLIC REGISTER DEFINITIONS SPl 034 
*********************************************************************** QP1 035 

♦ SPl 036 
LINKRG EQU 13 LINK- REGISTER SPl 037 

SPACE 2 SPl 038 

*********************************************************************** SPl 039 

♦ DEFINE THE FILES SPl 040 
*********************************************************************** SPl 041 

♦ SPl 042 
PRINT NOGEN DON'T PRINT GENERATED STATEMENTS SPl 043 

♦ SPl 044 
READER DTFSR rYPEFLE=INPUT, BLKSIZE=13, DEVICE=READ01, EOFADOR=EOCF, CSPl 045 

IOAREAl=INAREA,OVERLAP=NO,WORKA=YE3 SPl 046 

♦ SPl 047 
PRINTER DTFSR TYPEFLE=OUTPUT, WORKA=YES, DEVICE=PRINrER, BLKSIZE=60 SPl 048 

♦ SPl 049 
DTFEN SPl 050 
SPACE 2 SPl 051 

*********************************************************t:************* SPl 052 

♦ OPEN THE FILES SPl 053 

******************************************** ********************^^^4f*** gpj^ 054 

♦ SPl 055 
OPENF OPEN READER, PRINTER OPEN READER AND PRINTER SPl 056 

BR LINKRG RETURN SPl 057 

SPACE 2 SPl 058 

*********************************************************************** spx 059 

♦ READ A CARD SPl 060 
*********************************************************t^^^^^^^^^^t^^ gpl 061 

♦ SPl 062 
READ GET READER, CARDAR READ A CARD AND MOVE 11 TO CARDAR SPl 063 

BR LINKRG RETURN SPl 064 

SPACE 2 SPl 065 

************************** ********************************^*****t^^t^^^ 3p]^ 066 

♦ PRINT A LINE SPl 067 
******************************** *************************^^*****^^*^*** ^pi 068 
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♦ SPl 069 
PRIHT PUT PRINTER, PRINTAR PRINT A LINE SPl 070 

DO r.TMirOn DlPltriOM r-n* Alt 

SPACE 2 SPl 072 

************************************>t******tt**************^********t*t SPl 073 

♦ CLOSE THE FILES AND GO BACK TO MONITOR CEND OF JOB) SPl 07*! 
•****************<»«**************«************************«**«•*«***«** SPl 075 

♦ SPl 076 
CLOSEF CLOSE READER, PRINTER CLOSE RKADtR AND PRINTER SPl 077 

♦ SPl 078 
PRINT GEN PRINT GENERArED SrATEMENrS SPl 079 

♦ SPl 080 
EOJ , 3IVE CONTROL BACK TO MONITOR SPl 081 
SPACE 2 SPl 082 

t**t*tttt*ti^tttttttt**t***1't*4>1f**'H¥***t***ti:^tt********^*t**ttt**t:t*^t* SPl 083 

♦ AREAS SPl 084 
♦**♦♦♦•♦♦♦♦•♦♦♦♦*♦♦*♦♦♦♦**♦*•*♦♦♦♦♦♦*♦♦♦♦♦♦*•♦♦*♦*•♦♦♦♦♦♦♦♦*♦♦♦♦*♦*♦♦♦** SPl 085 

♦ SPl 086 
INAREA DS 13C INPUT AREA FOR IOCS SPl 087 
CARDAR DS CL13 CARD IS STORED SERE AFTER SET SPl 088 
PRINTAR DS CL60 PRINT AREA SPl 089 

SPACE 2 SPl 090 

END SPl 091 
/♦ 

// JOB ASSEMB SECOND ASSEMBLlf 

// EXEC 

AOPTN CROSSREF, ENTRy SP2 001 

SLE TITLE 'ASSEMBLER SAMPLE, PART 2, DEFINiriONS' SP2 002 

. — - — ^^~^^^^^*-^^**^i^-^^it^^^^tti^^t^^^t^^^^t^a^t^t^^t^^^^it 3F2 vO J 

PART2 START SECOND PART OF SAMPLE SP2 001 

******************************** t********^*tt^^^**^^^t^t^tt************* SP2 005 

SPACE 2 SP2 006 

*********************************************************************** SP2 007 

♦ DEFINE ENTRIES AND EXTERNAL SYMBOLS SP2 008 
*********************************************************************** SP2 009 

♦ SP2 010 
EXTRN OPENF OPEN ROUTINE SP2 Oil 
EXTRN READ READ ROUTINE SP2 012 
EXTRN PRINT PRINT ROUTINE SP2 013 
EXTRN CLOSEF CLOSE ROUTINE SP2 014 
EXTRN CARDAR AREA WHERE CARD IS STORED SP2 015 
EXTRN PRINTAR PRINT AREA SP2 016 

♦ SP2 017 
ENTRY EOCF END OF CARD FILE SP2 018 
SPACE 2 SP2 019 

**************** ******************************************************^ 3P2 020 

♦ SYMBOLIC REGISTER DEFINITIONS SP2 021 
*********************************************************************** 3P2 022 

♦ SP2 023 
REGS EQU 8 REG. 8 SP2 024 
BASERGl EQU 10 BASE-REGISTER 1 SP2 025 
BASERG2 EQU 11 BASE-REGISTER 2 SP2 026 
LINKRG EQU 13 LINK- REGISTER SP2 027 
BRANCHRS EQU 14 BRANCH-REGISTER SP2 028 
CARDRG EQU 12 REGISTER FOR CARD AREA SP2 029 
PRIMTRG E(HJ 15 REGISTER FOR PRINT AREA SP2 030 

SPACE 2 SP2 031 

*********************************************************************** SP2 032 

♦ EQUATE SYMBOLS SP2 033 
*********************************************************************** 3P2 034 

♦ SP2 035 
EQUAL EQU 8 CONDITION EQUAL SP2 036 
NOTLOW EQU 11. CONDITION EQUAL AND HIGH 5P2 037 

♦ ' SP2 038 
TA EQU C'A* TYPE A SP2 039 
TB EQU C'B* TYPE B SP2 040 
TC EQU C'C TYPE C '3P2 041 
CHARO EQU CO' CHARACTER SP2 042 
CHAR9 EQU C'9' CHARACTER 9 SP2 043 
BLANK EQU C* ' CHARACTER 'BLANK' SP2 044 

TITLE 'ASSEMBLER SAMPLE, PART 2, MAIN PROGRAM' SP2 045 

********************************************************************** SP2 046 

MAIN PROGRAM SP2 047 

********************************************************************** SP2 048 

SP2 049 
LOAD BASE REGISTER SP2 050 

SP2 051 

BEGIN BASR BASERGl, LOAD BASE-REGISTER 1 AND SP2 052 

USING *, BASERGl INFORM ASSEMBLER SP2 053 
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BASEAll 



EQU 
LH 



* BASE- ADDRESS 1,1 

BASERG2,=Y(BASEA21) LOAD BASl:;- REGISTER 2 



OSIHG DCARDAR.CARDRG 
USING OPRINTAR.PRINTRG 
SPACE 2 
OPEN CARD AND PRINTER FILE 

LH BRANCHRG,=y(OP£NF) 
BASR LINKRG.BRANCHRG 
B PRHTLINE 
SPACE 2 
READ A CARD 

i^RD LH BRANCHRG,=Y(R£AO) 
BASR LINKRG.BRANCHRG 
SPACE 2 
BLANK PRINTAREA AND RESET PACKED RESULT FIELD 



FOR IMPLICIT ADDRESSING 
FOR IMPLICIT ADDRESSING 



LOAD REG. MITH BRANCH ADDRESS 
OPEN READER AND PRINTER AND RETURN 
PRINT A BLANK LINE 



LOAD REG. WITH BRANCH ADDRESS 
BRAilCE} TO READ ROUTINE AND RETURN 



LH 
MVI 
MVC 
ZAP 
EJECT 
TEST TYPE OF CARD 



PRINTRG,=y(PRINTAR) LOAD ADDRESS OF PRINT AREA 
0(PRINTRG),C* ' BLANK IN FIRST BYTE OF PRINT AREA 
1(L'DPRIHTAR-1,PRINTRG>,0(PRIMTR3) BLANK THE REST 



RESP, =P*0' 



LH CARDPG, =y (CARDAR) 

CLI 0(CARDRG),TA 

BC 8,TYPEA 

CLI 0(CARDRG),TB 

BC EQUAL, TYPEB 

CLI 0(CARDRG),TC 

BE TYPEC 

BC IS.HALTOOOl 

SPACE 2 



INITIALIZE RESULT FIELD 



INITIALIZE REGISTER 

TEST IF TYPE A 

YES 

IF TYPE B 

YES 

IF TYPE C 

YES 

30 TO HALT ROUTINES 



TEST FOR DEC. NUMBERS IN THE CARD ENTRIES 



TYPEA BASR BASERGl.O 
USING *,BASERG1 
BASEA12 EQU * 





LH 


8,=H*1* 


rSTRICOL 


CLI 


3(CARDRG),2tt9 




BH 


HALT003N 




CLI 


3(CARDRG),2I»0 




BL 


HALT003N 


rSTMICOL 


CLI 


2(CARDRG),C'9' 




BH 


HALT002N 




CLI 


2(CARDRG),C*0' 




BNL 


TSTLECOL 




CLI 


2(CARDRG),C' • 




BNE 


HALT002N 


TSTLECOL 


CLI 


1(CARDRG),X'F9' 




BH 


HALTOOIN 




CLI 


1{CARDRG),X'F0' 




BNL 


TSTIFIN 




CLI 


1(CARDRG),X'I»0' 


^ 


BNE 


HALTOOIN 


TSTIFIH 


CH 


8,=H'a' 




BNL 


CEXPRA 




AH 


8,=H'l' 




AH 


CARDRG,=H'3* 




B 


TSTRICOL 




EJECT 






USING 


BASEA21,BASERG2 


TYPEB 


BAS 


LINKRCTESTENTR 


* 


B 


CEXPRB 


* 
TYPEC 


BAS 


LINKRG.TESTENTR 




B 


CEXPRC 



BASEA21 EQU 

TESTENTR LH 
TRICOL CLI 



CHANGE CONTENTS OF BA3E-REGI3TER 1 
AND INFORM THE ASSEMBLER 
BASE- ADDRESS 1,2 

INITIALIZE COUNTER* 
COMPARE RIGHT COL WITH 9 
INVALID IF HIGH 
COMPARE WITH 
INVALID IF LOW 

COMPARE MIDDLE COL WITH 9 

INVALID IF HIGH 

COMPARE WITH 

0. K. IF NOT LOW 

IF BLANK 

NO, INVALID 

COMPARE LEFT COL. WITH 9 
INVALID IF HIGH 
COMPARE WITH 
O. K. IF NOT LOW 
IF BLANK 
NO. INVALID 

ALL ENTRIES CHECKED 

YES, COMPUTE EXPRESSION TYPE A 

INCREMENT COUNTER BY 1 

NEXT ENTRY 

LOOP 



BRANCH TO SUBROUTINE AND RETURN 
BRANCH TO SUBROUTINE 



BRANCH TO SUBROUTINE AND RETURN 
BRANCH TO SUBROUTINE 



REGS, HI 
ENTRY*2,CHAR9 



BASE- ADDRESS 2,1 



INITIALIZE REGISTER 
COMPARE RIGHT COL WITH 9 



SP2 054 
SP2 055 
SP2 056 
SP2 057 
SP2 058 
SP2 059 
SP2 060 
SP2 061 
SP2 062 
SP2 063 
SP2 064 
SP2 065 
5P2 066 
SP2 067 
SP2 068 
SP2 069 
SP2 070 
SP2 071 
SP2 072 
SP2 073 
SP2 074 
SP2 075 
SP2 076 
SP2 077 
SP2 078 
SP2 079 
SP2 080 
SP2 081 
SP2 082 
SP2 083 
SP2 084 
SP2 085 
SP2 086 
SP2 087 
SP2 088 
SP2 089 
SP2 090 
SP2 091 
SP2 092 
SP2 093 
SP2 094 
SP2 095 
SP2 096 
SP2 097 
SP2 098 
SP2 099 
SP2 100 
SP2 101 
SP2 102 
SP2 103 
SP2 104 
SP2 105 
SP2 106 
SP2 107 
SP2 108 
SP2 109 
SP2 110 
SP2 111 
SP2 112 
SP2 113 
SP2 114 
SP2 115 
SP2 116 
SP2 117 
SP2 118 
SP2 119 
SP2 120 
SP2 121 
SP2 122 
SP2 123 
SP2 124 
SP2 125 
SP2 126 
SP2 127 
SP2 128 
SP2 129 
SP2 130 
SP2 131 
SP2 132 
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BH 


HALT003N 


HIGH 




SP2 133 




CLI 


ENTRY+2,CHAR0 


WITH 




SP2 13«t 




BL 


HALT003N 


LOtf 




SP2 135 


* 










SP2 136 


TMICOL 


CLI 


ENTRY+1,CHAR9 


COMPARE MIDDLE COL WITH 9 


SP2 137 




BH 


HALT002N 


HIGH 




SP2 138 




CLI 


ENTRy+l,CHARO 


WITH 




SP2 139 




BNL 


TLECOL 


0. K. 




SP2 140 




CLI 


ENTRY+1, BLANK 


IF BLANK 




SP2 lUl 




BdE 


HALT002N 


NO 




SP2 1«J2 


V 










3P2 1«JJ 


TLiiCOL 


CLI 


ENTRY, CHAk9 


COMPARE LEFT COL WITH 9 


SP2 l«i4 




BH 


HALTOOIN 


HIGH 




SP2 l«t5 




CLI 


ENTRY, CHARO 


WITH 




SP2 146 




BNL 


TIFIN 


0. K. 




SP2 147 




CLI 


ENTRY, BLANK 


IF BLANK 




SP2 148 




BNE 


HALTOOIN 


NO 




SP2 149 


* 










SP2 150 


riFIri 


CH 


K£G8,Hii 


ALL ENTkIBS checked 


SP2 151 




BCR 


NOTLOW,LINKRG 


YES 




SP2 152 




AH 


REGS, HI 


INCREMENT 


COUNTER BY 1 


SP2 153 




AH 


CARDRG, H3 


NEXT ENTRY 


SP2 154 




B 


TRICOL 


LOOP 




SP2 155 




SPACE 


2 






SP2 156 


* LITERAL POOL 






SP2 157 


* 


LTORG 
EJECT 








SP2 158 
SP2 159 
SP2 160 


♦ COMPnTE EXPRESS IONS i TYPE A. ^ 


EWTRYl 


♦ ENTRY2 - ESrRY3 * £^3^RY'J 


SP2 161 


* 




TYPE B . 


. . ENTRYl 


- ENTRy2 ♦ ENrRY3 ♦ ENTRY* 


SP2 162 


* 




TYPE C . 


. . ENTRYl 


♦ ENTRY2 ♦ ENTRYS - ENTRYU 


SP2 163 


* 










SP2 164 




DROP 


BASERG2 






SP2 165 


* 










SP2 166 


CEXPRA 


LH 


CARDRG, YCARDAR 




INITIALIZE REGISTER 


SP2 167 




LH 


PRINTRG.YPRINTAR 




INITIALIZE REGISTER 


SP2 168 


♦ 










SP2 169 




MVC 


10(9,PRINTRG) ,MESS 




MESSAGE TO PRINT AREA 


SP2 170 




MVT 


20(PRINTRG),TA 




TYPE TO PRINTAREA 


SP2 171 


* 










SP2 172 




MVC 


25(3, PRINTRG) , 1 (CARDRG) 


NUMBER 1 TO PRINT AREA 


SP2 173 




PACK 


RESP+3 (2) , 1 (3, CARDRG) 


PACK NUMBER 1 (Nl) 


SP2 174 


* 










SP2 175 




MVI 


29(PRINTRG) ,C'+' 




SIGN TO PRINT AREA 


SP2 176 




MVC 


31 ( 3, PRINTRG) , «i (CARDRG) 


NUMBER 2 TO PRINT AREA 


SP2 177 




PACK 


PFLD, 4(3, CARDRG) 




PACK i«JMBER 2 (N2) 


SP2 178 




AP 


RESP*2(3),PFLD 




Nl ♦ N2 


SP2 179 


* 










SP2 180 




MVI 


35 ( PRINTRG), C*-' 




SIGN TO PRINT AREA 


SP2 181 




MVC 


37(3, PRINTRG) , 7 ( CARDRG) 


NUMBER 3 TO PRINT AREA 


SP2 182 




PACK 


PFLD,7(3,CARDRG) 




PACK NUMBER 3 (N3) 


SP2 183 




SP 


RESP*2(3),PFLO 




Nl ♦ N2 - H3 


SP2 184 


« 










SP2 185 




MVI 


tK PRINTRG) ,C'** 




SIGN TO PRINT AREA 


SP2 186 




MVC 


U3 ( 3, PRINTRG) , 10 t CARDRG) 


NUMBER U TO PRINT AREA 


SP2 187 




PACK 


PFLD,10(3,CARDRG) 




PACK NUMBER <t (N(t) 


SP2 188 




MP 


RESP, PFLD 




Nl ♦ N2 - N3 ♦ NU 


SP2 189 


* 










SP2 190 




MVI 


48(PRINrRG),C'=' 




EQUAL SIGN TO PRINT AREA 


SP2 191 




UNPK 


51(9, PRIMTRG) , RESP 




RESULT TO PRINT AREA 


SP2 192 




OI 


59(PRINTRG),X'F0' 




CHANGE SIGN IN ZONE TO F 


SP2 193 




B 


EDIT 






SP2 194 


* 










SP2 195 


* 










SP2 196 




USING 


BASEA21,BASER32 






SP2 197 


* 










SP2 198 


CEXPRB 


LH 


CARDRG, YCARDAR 




INITIALIZE REGISTER 


SP2 199 




LH 


PRINTRG, yPRINTAR 




INITIALIZE REGISTER 


SP2 200 


* 










SP2 201 




MVC 


DPRINTAR*10 (L* MESS) 


,MESS 


MESSAGE TO PRINT AREA 


SP2 202 




MVI 


DPR1NTAR*20,TB 




TYPE TO PRINT AREA 


SP2 203 


* 










SP2 204 




MVC 


DPRINTAR* 25 ( L' NOMBl ) , NOMBl 


NUMBER 1 TO PRINT AREA 


SP2 205 




PACK 


RESP«L*RESP-LNUMBP(LNUMBP),NUMB1 PACK NUMBER 1 (Nl) 


SP2 206 


« 










SP2 207 




MVI 


DPRINTAR*29,C'-' 




•-• TO PRINT AREA 


SP2 208 




MVC 


DPR1NTAR*31(L'NUMB2) ,N0MB2 


NUMBER 2 TO PRINT AREA 


SP2 209 




PACK 


PFLD, NUMB 2 




PACK NUMBER 2 (N2) 


SP2 210 




SP 


RESP+L* RESP- LDIF{LDIF), PFLD 


Nl - N2 


SP2 211 
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• 












SP2 212 




MVI 


DPRINTAR*35,C' 


*• 


•♦• .rO PRINT 


AREA 


SP2 213 




MVC 


DPRINTAR*37{L' 


NDHB3),NOHB3 NUMBER 3 TO PRINT AREA 


SP2 214 




PACK PFLD,NUMB3 




PACK NUMBER : 


) (N3) 


SP2 215 




MP 


RESP, PFLD 




Nl - N2 ♦ N3 




SP2 216 


# 












SP2 217 




MVJ 


DPRINTAR*41,C' 


+ • 


•♦• rO PRINT 


AREA 


SP2 218 




MVC 


: DPRINTAR*43(L' 


NDMB4),NUMB4 NUMBER 4 TO PRINr AREA 


SP2 219 




PACK PFLD. NUMB4 




PACK NUMBER 4 (N4) 


SP2 220 




AP 


RESP, PFLD 




Nl - N2 * N3 


* N4 


SP2 221 


* 












SP2 222 




MVI 


DPRINTAR*48,C' 


-t 


•=• rO PRINT 


AREA 


SP2 223 




UNPK DPRINTAR+51(L' 


RESP* 2-1), RESP RESULT TO PR 


AREA 


SP2 224 




01 


DPRINTAR*59,B' 


11110000* CHANGE SIGN IN ZONE TO F 


SP2 225 




B 


EDIT 








SP2 226 


* 












SP2 227 


» 












SP2 228 


CEXPRC LH 


CARDRG,yCARDAR 




INITIALIZE REGISTER 


SP2 229 




LH 


PRINTRG,yPRINTAR 




INITIALIZE REGISTER 


SP2 230 


• 












SP2 231 




MVC 


DMESS, MESS 




MESSAGE AND 




SP2 232 




MVC 


PTYPE, TYPE 




TYPE TO PRINT AREA 




SP2 233 


* 


MVC 


PNUMB1,NUMB1 








SP2 234 
SP2 235 




PACK 


RESPRI,NUMB1 




Nl 




SP2 236 


* 


MVI 
MVC 


SIGN1,C'*' 
PNUMB2,NUMB2 








SP2 237 
SP2 238 
SP2 239 




PACK 


PFLD,NUMB2 




N2 




SP2 240 




MP 


RESP, PFLD 




Nl * N2 




SP2 241 


* 


MVI 
MVC 


SIGN2,C'+« 
PNUMB3,NUMB3 








SP2 242 
SP2 243 
SP2 244 




PACK 


PFLD, NUMB 3 




N3 




SP2 245 




AP 


RESP, PFLD 




Nl ♦ N2 ♦ a3 




SP2 246 


* 


MVI 
MVC 


SIGN3,C'-' 
PNUMB4 , NUHB4 








SP2 247 
SP2 248 
SP2 249 




PACK 


PFLD, NUMB4 




M4 




SP2 250 




SP 


RESP, PFLD 




Nl ♦ N2 + N3 - N4 




SP2 251 


* 


MVI 


EQSIGN,C'=' 








SP2 252 
SP2 253 




UNPK 


RESZ,RESP 




RESULT TO PRINT AREA 


SP2 254 




01 


RESZ+L'RESZ-1,C'0 


1' 


CHANGE SIGN TO F 




SP2 255 




SPACE 2 








SP2 256 


* 


EDIT RESULT 








SP2 257 


* 












SP2 258 


EDIT 


LH 


RSG8 , HI 




INITIALIZE REGISTER 




SP2 259 




LH 


PRINTRG,YRESZ 




LOAD ADDRESS OF RESULT 


FIELD ZONED 


SP2 260 


rSTIFO CLl 


0(PRINTRG),C'C 


1* 


TEST IF 




SP2 261 




BNE 


: TSTSIGN 




NO 




SP2 262 




CH 


REG8 , YLRESZ 




ALL BYTES CHECKED 




SP2 263 




BUI 


PRNTLINE 




YES 




SP2 264 




MVI 


0(PRINTRG),C' 




MOVE BLANK 




SP2 265 




AH 


PRINTRG,H1 




NEXT BYTE 




SP2 266 




AH 


REG8,H1 




INCREMENT COUNTER BY 1 




SP2 267 




B 


TSTIFO 




LOOP 




9P2 268 


• 












SP2 269 


TSTSIGN SH 


PRINTRG.Hl 




ONE STEP BACK 




SP2 270 




TM 


RESP+L'RESP-1, 


B' 


00000001" TEST SIGN 




SP2 271 




BO 


MINOS 








SP2 272 


PLUS 


MVI 

B 


O(PRINTRG) ,C'-« 
PRNTLINE 


■' 


MOVE PLUS SIGN 




SP2 273 
SP2 274 


MINUS MVI 


0(PRINTRG),C«- 


■• 


MOVE MINUS SIGN 




SP2 275 




SPACE 2 








SP2 276 


* 


PRINT A LirfE 








SP2 277 


* 












SP2 278 


PRNTLINE LH 


BRANCHRG, YPRINT 


LOAD BRANCH- REGISTER 


SP2 279 




BASR LINKRG, BRAHCHRG 


PRINT A LINE 


AND RETURN 


SP2 280 




B 


BGETCARD 




READ NEXT CARD 


SP2 281 




SPACE 2 








SP2 282 


* 


HALT ROUTINES 








SP2 283 


* 












SP2 284 


HRLTOOOl HPR 1,0 




INVALID CARD TYPE 




SP2 285 




B 


BGETCARD 




NEXT CARD 




SP2 286 


* 












SP2 287 


riALTOOlN STH 8,riPRI+2 




STORE ENTRY NUMBER (N = 


= 1, 2, 3 OR 


4 SP2 288 




01 


HPRI*3,X'10' 




•OR' COLUMi^l NUMBER (COL. 1) 


SP2 289 




B 


HPRI 








SP2 290 
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HAI.T002N STH 
01 

B 



REG8,HPRI*2 

HPRI*3,X'20' 

HPRI 



ENTRY NUMBER (N 
NUMBER OF COL 



1, 2, 3 OR H) 



HnLTOOSN STH kEGS,HPRI*2 
01 HPRI*3,X'30' 

UPRI HPR 0,0 

BGETCARD LH BASERGl, YBASEAll 
USING BASEAll, BASERGl 
B GETCAHD 



ENrRY NUMBER (N = 1. 2, 3 OR U) 
COL 3 

MILL BE UP0ATE3 BY HALT ROUTINES 
LOAD BASE REGISFER 1 MITH ORIG VALUE 

NEXT CARD 



* END OF CARD FILE 
* 

EOCF LH BRANCHRG.YCLOSEF LOAD ADDRESS OF CLOSE ROUriNE FREE 

BR BRANCHRG CLOSE THE FILES FORMAT 

TITLE 'ASSEnBLER SAMPLE, PART 2, OArA DEFINITIONS* 

♦ DATA DEFINITIONS 



ADDRESS OF PRINT ROUTINE 

ADDRESS OF CL03E ROUTINE 

ADDRESS OF CARDAREA 

ADDRESS OF PRINTAREA 

ADDRESS OF RESULT FIELD ZONED 

LEMGTH OF RESZ 

BASE ADDRESS 1 1 

RESULT PACKED 
PACK FIELD 

SET LOC. COUNTER BACK TO RESP 
FIRST PART OF RESP 
RIGHT PART OF RESP 
LENGTH OF PACKED NUMBER 
LENGTH OP DIFFERENCE 

, TO PttEVEWT OVERLOADING OF PFLD 



m 


DC 


H'l* 


H3 


DC 


H'3' 


* 

YPRINT 


DC 


H'4' 


DC 


Y( PRINT) 


YCLOSEF 


DC 


Y(CLOSEF) 


YCARDAR 


DC 


Y(CARDAR) 


YPRINTAR 


DC 


Y(PRINTAR) 






ir f nn -r ki*«i « n . r 4 \ 


YnoSZ 


U*^ 


i I £-I\x 11X nH-r 3X1 


YLRESZ 


DC 


Y(L'RESZ) 


YBASEAll 


DC 


Y( BASEAll) 


RESP 


DC 


PLS'C 


PFLD 


DC 


PL2'0' 




ORG 


RESP 




DC 


X'OOOOOO' 


RESPRI 


DC 


PL2'0' 


LNUMBP 


EQU 


L'PFLD 


LDIF 

* 


EQO 
ORG 


LNUMBP 


MESS 


DC 


C'CARD TYPE' 




TITLE 


•ASSEMBLER SAMPLE 


DCS! 


DSECT 


• 


DCARDAR 


DS 


0CL13 


TYPE 


OS 


C 


NUKBl 


DS 


CL3 


NUMB 2 


DS 


CL3 


NUMB3 


DS 


CL3 


NUMBit 


DS 


CL3 


ENTRY 


EQU 


NUMBl 


CAEND 


EQu 


« 




SPACE 


2 


0CS2 


DSECT 


' 


DPRINTAR 


DS 


0CL60 




ORG 


DPRINTAR* 10 


DMESS 


DC 


C'CARD TYPE' 




ORG 


DPRINTAR* 20 


PTYPE 


DS 


C 




ORG 


DPRINTAR* 25 


PNUMBl 


DS 


CL3 


SIGNl 


EQU 


♦ ♦1 




ORG 


**3 


PNUMB2 


DS 


CL3 


SIGN2 


EQU 


♦ ♦1 




ORG 


♦ ♦3 


PNUMB3 


DS 


CL3 


SIGtl3 


EQU 


♦ ♦1 




ORG 


♦ ♦3 


PNUMBl 


DS 


CL3 


EQSIGN 


EQU 


♦ ♦2 




ORG 


* + 5 


RESZ 


DS 


CL9 


PAEiiD 


EQU 


* 




SPACE 


2 




END 


BEGIN 



PART 2, DUMMY CONTROL SECTIONS' 
DUMMY CARDAREA 



DUMMY PRINTAREA 



SP2 
SP2 
SP2 
SP2 
SP2 
SP2 
SP2 
SP2 
SP2 
SP2 
SP2 
SP2 
SP2 
SP2 
SP2 
SP2 
SP2 
SP2 
SP2 
SP2 
SP2 
SP2 
SP2 
SP2 
SP2 
SP2 
SP2 
SP2 
SP2 
SP2 
SP2 
SP2 
SP2 
SP2 
SP2 
SP2 
SP2 
SP2 
SP2 
SP2 
SP2 
SP2 
SP2 
SP2 
SP2 
SP2 
SP2 
SP2 
SP2 
SP2 
SP2 
SP2 
SP2 
SP2 
SP2 
SP2 
SP2 
SP2 
SP2 
SP2 
SP2 
SP2 
SP2 
SP2 
SP2 
SP2 
SP2 
SP2 
5P2 
SP2 
SP2 
SP2 
SP2 
SP2 
SP2 
SP2 
SP2 
SP2 
SP2 



291 
292 
293 
29lt 
295 
296 
297 
298 
299 
300 
301 
302 
303 
30« 
305 
306 
307 
308 
309 
310 
311 
312 
313 
31U 
315 
316 
317 
318 

It o 

320 
321 
322 
323 
32<t 
325 
326 
327 
328 
329 
330 
331 
332 
333 
33i» 
335 
336 
337 
338 
339 
340 
3H1 
3it2 
3t(3 
3ai| 
345 
346 
347 
348 
349 
350 
351 
352 
353 
354 
355 
356 
357 
358 
359 
360 
361 
362 
363 
364 
365 
366 
367 
368 
369 
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/* 

// PAUSE INSERT ASSEMB OUTPUT DECKS OP BOTH ASSEMBLIES FOR LNKEOT 

// JOB CNAINT CORE IMAGE MAINTENANCE RUN 

// EXEC R 

// CATAL 

// END 

// JOB SAMPLE ASSEMBLER SAMPLE 

// EXEC 



SP2 370 



A 


1 


2 


3 


4 


B 


1 


2 


3 


4 


c 


1 


2 


3 


4 


A 


5 


6 


7 


8 


B 


5 


6 


7 


8 


C 


5 


6 


7 


8 


A 


U5 


71 


28 


39 


B 


U5 


71 


28 


39 


•^ 


«»5 


71 


28 


39 


A2a8935627310 


B2ft8935627310 


C2U8935627310 


/« 










Figure 


20. 
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TPS Assembler Language Program 

you may use the source deck from the DPS 
saiTiple program in a tape-oriented system. 
However,, to run the program under TPS you 
must make the following changes: 

• replace the job control statements 

• replace the aOPTN CROSSREF, EKrR? state- 
ment (SP2 001) by an AOPTN ENTRY 
statement. 

The TPS job control statements with 
which you mast replace the corresponding 
DPS job control statements are listed 
below. 



r 1 

I Job control cards for first assembly | 
j. _ ^ 

I / y T ^^r■ ; 

I / / ijV-'O I 

\// JOB ASSEMB j 

|// ASS3N SYS000,X*780*T2 j 

|// ASSSN SYS001,X'781'T2 | 

j// ASSGN SYS002„X'782',r2 | 

|// ASSGN SYSOPT,X*3 00»P2 | 

|// DATE. 70020 | 

|// EXEC I 

j. ___„„_^ 

|. ___ ^ 

I Job control cards for second assembly are] 
I identical to those for DPS | 

|. ^ 

j. _ ^ 

I Job control cards for Linkage Editor run j 
j. ^ 

|// JOB LNKEDT | 

|// ASSGN SYSOPT,X»782',T2 j 

|// EXEC I 

|.„=-^. \ 

^ ..^ 

[Job control cards for CMAINT run | 
|.__^ ^ 

j// JOB C MAI NT ] 

j// ASSGN SYSIPT,X*782\T2 j 

|// FILES SYSIPT,REW | 

J/V ASSGN SYSOPT,X'781*,T2 | 

|// EXEC I 

j// CATAL J 

|// END I 

L J 



Now you must perform a new IPL with the 
system tape created in the CM^INT run 
above. IPL is followed by 



r 1 

|// LOG I 

j// JOB SAMPLE I 

I// DATE 70020 | 

j// EXEC i 

|. ^ 

I Data cards j 

L J 



You can study the general and detailed 
organization of the program in the descrip- 
tion of the DPS sample progra-n. The only 
differences which occur are in the Job Con- 
trol, Linkage Editor and CMAINT programs, 
of which you can find a description in the 
SRL publication IBM_Systeii/36g_Model_20L 
3!2£§_El23£§S2!ili9_System^__Control_and_Ser- 
vice_Programs, Form GC24-900 0. 



For information on the Tape IOCS refer 
to the publication IBM S ysteni/3 6 ModelgOy 
Tape P rogramming Syst em^ Input/Output Con- 
trol System, Form GC 24-9003. 



I18R 



Index 



indexes to System/360 Model 20 SRL publications are consolidated in the publication 
IBM System/360 Model 20 ^ Disk Programming System; Master Index^ Form GC33-6008, 

(Where more than one page reference is given, major reference appears first.) 



&SYSECT -- current control section 95 

SSYSLISTtn) — macro instruction 

operand field 96 

SSYSNDX — macro instruction index...... 94 

Absolute 

expressions 20,16 

terms. . . , 20 ,16 

Add 

Decimal packed (AP) 30 

Halfword (AH) 26 

Register (AR) 24 

Address 

adjustment of 97 

constant (Y) 51 

explicit 19 

implicit 19 

Addressing - 18 

direct 19 

dummy control sections 57 

examples of 21 

explicit 19 

external control sections 19,61 

implicit 20 

indirect". 19 

relative 20 

Addressing error 

binary arithmetic operations 23 

branching operations 42 

decimal arithmetic operations 27 

logical operations 34 

AGO — Unconditional Branch 90 

AGOB — Unconditional Branch Backward. . . 91 

AH -- Add Half word 26 

AIE — Assembly in error 109 

AIF — Conditional Branch. . * 89 

AIFB — Conditional Branch Backward 90 

Alignment of Machine instructions.... 53,17 

Alphabetic characters 7 

And Immediate (NI) 39 

AND ( logical operator) 86 

ANOP — No Operation 91 

AOPTN (Assembler Option) statement 107 

AP -- Add Packed 30 

AR -- Add Register 24 

Areas, definition of 52 

Arithmetic relation 86 

Assembler 

diagnostic messages 139 

functions of 5 

option statement (AOPTN) 106 

work file statement (AWORK) 105 

Assembler actions on errors 109 

Assembler instructions 47 

base register 60 

data definition 48 

listing control 63 

program control 65 

program linking 54 



program sectioning 54 

summary of 126 

symbol definition , 47 

Assembler language 

coding conventions 8 

features of 132,7 

statements , types of 5 

structure of 12 

Assembler listing 109 

description of layout 135 

example of 137,6 

printing optional data, . 64 

printing title 63 

spacing of 64 

starting new page 63 

Assembler program defined terms 13 

location counter reference 15 

symbols 13 

Assembly 

of macro instructions . 74 

of a program 104 

operating environment for 7 

ASSGN control statement 105, 108 

AWORK (Assembler Work-File) statement. . 106 

B type constant 50 

BAS -- Branch and Store 44 

Base address 19,60 

Base register instructions 60 

DROP — Drop Base Register 62 

USING — Use Base Register 60 

Base registers 19 

for direct addressing 19 

for indirect addressing 19 

loading of 6 2 

pseudo 61 

restrictions for use of 62 

specifying 60 

Basic Monitor program 7 

BASR -- Branch and Store Register 43 

BC — Branch on Condition 43 

BCR -- Branch on Condition Register 42 

Begin 

column 107,8 

literal pool (LTORG) 66 

Binary 

constants 50 

data, format of 23 

half word 23 

machine instruction formats 23 

numbers 23 

self-defining terms 13 

Binary arithmetic instructions 24 

AH — Add Halfword 26 

AR -- Add Register 24 

CH — Compare Halfword 25 

LH — Load Halfword 25 

SH — Subtract Halfword 26 

SR — Subtract Register 24 



Index 189 



STH — Store Halfword 25 

Binary arithmetic operations 22 

condition code setting after 23 

error conditions. 23 

Boundary alignment 53 

Branch 

on Condition (BC) 43 

on Condition Register (BCR) 42 

and Store (HAS) ...,......,,.,,.,,.,.„, U'i 

and Store/Register (BaSR) 43 

Branch instructions 42 

BAS — Branch and store 44 

BASR — Branch and Store Register 43 

BC — Branch on Condition i ^. . . 43 

BCR ~" Brancii on ConQ3.i.xon Regis»_sr. . . 4^. 

SPSW — Set PSW. 44 

Branch operations 41 

error conditions, 42 

machine instruction formats 42 

C type constant 49 

Cataloging a macro definition 108 

CH — Compare Halfword 25 

Channel command word 54 ,110 

definition of 54 

Character 

codes 147 

constants 49 

data, format of 33 

relation 87 

self-defining term ...<>.*........ 13 

set 7 

CMAINT (core-image maintenance) 
program 65 

Coding conventions 8 

summary of 9 

Coding form 8^11 

Combining symbolic parameters with 
other characters 78 

Comments entries 

in macro language statements ,,, ,«*<,-- , 93 
in source program statements 9,6 

Compare 

Decimal Packed (CP) 30 

Halfword (CH) 25 

Logical Characters (CLC) 37 

Logical Immediate (CLI ) 36 

Compatibility. 110 

Complex relocatable expressions 52 

Concatenation 

of symbolic parameters., 78 

of substrings 85 

Condition code setting 

after binary arithmetic operations.... 23 
after decimal arithmetic operations... 27 
after logical operations , 34 

Conditional assembly instructions 80 

sequence symbols 88-92 

SET variable symbols 80-88 

Conditional branch (AIF) 88 

Conditional branch backward (AIFB) 90 

Configuration, system.. 153 

Constants 

address (Y) 51 

binary (B) 50 

character (G) 49 

decimal 51 

definition of. 48-52 



fixed-point (H) . 50 

hexadecimal (X) 50 

literals ..,.,» 46 

packed decimal (P) 51 

rules for definition 48 

suiriinary of. 127 

zoned decimal (Z) 51 

Continuation 

card ,,,,,.,,,-,,.,,,,iiiiiiiiass=sisss 72 

character 8 

column. 8, 105 

of macro language statement 72,8 

Control sections 54 

dummy 57 

c:Xut:j.iicij. , aUvaX coo j-iivj v^i.......... ...... -'7 

first 55 

maximum number of 55 

starting location of 55 

unnamed 55, 57 

Control statements 105 

Conversion table, hexadecimal-decimal.. 155 

CP — Compare Decimal Packed 30 

CROSSREF (Assembler option) 106 

CSECT — Identify Control Section 56 

Current control section (SSYSECT) 95 

Data definition instruction 48 
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